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EXECUTIVE  SUMMARY 


The  Commercial  Activities  (CA)  Program  is  a  government-wide  effort  to  ensure  that  goods 
and  services  are  acquired  in  the  most  economical  manner.  The  Corps  of  Engineers  has  been  one 
of  the  more  successful  agencies  in  realizing  the  benefits  of  contracting  for  commercial-type 
activities. 

To  ensure  continued  success  and  compliance,  the  Deputy  Chief  of  Engineers  directed  a 
thorough  inventory  of  Corps  functions.  As  a  part  of  that  effort,  the  Engineer  Studies  Center 
(ESC)  was  subsequently  asked  to  assist  the  Corps  Directorate  of  Resource  Management  (DRM) 
in  reviewing  the  classification  of  Corps  positions.  ESC  surveyed  available  data  sources,  designed  a 
methodology,  extracted  CA  inventories,  and  provided  results  to  DRM.  This  report  documents 
ESC's  methodology  and  provides  examples  of  the  source  data  and  output  reports. 
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COMMERCIAL  ACTIVITIES 


BASELINE  STUDY 

I.  INTRODUCTION 


1.  PURPOSE.  This  report  describes  the  Engineer  Studies  Center’s  (ESC)  input  to  the 
Commercial  Activities  (CA)  Baseline  Study,  conducted  bv  the  U.S.  Army  Corps  of  Engineers 
(USACE),  Directorate  of  Resource  Management  (DRM). 

2.  SCOPE.  In  response  to  a  DRM  request,  ESC  developed  an  objectively  based  inventory 
of  Corps  positions,  categorized  by  CA  function.1  ESC  provided  the  products  of  the  study 
(estimated  CA  baselines)  to  DRM  for  distribution  to  the  functional  managers.  This  report  docs 
not  list  or  discuss  that  inventory.  Rather,  it  documents  the  data  and  methodology  ESC  developed 
to  create  those  baselines. 

3.  BACKGROUND. 

a.  CA  Program  Definition.  The  CA  program  is  promulgated  in  the  Office  of 
Management  and  Budget  (OMB)  Circular  A-76,  Performance  of  Commercial  Activities.  Basically  it 
requires  that  services  currently  performed  within  government  organizations  should  be  performed 
under  contract  if  they  can  be  obtained  more  economically  from  commercial  sources. 

(1)  Although  A-76  first  appeared  in  1966,  the  theory  that  government 
activities  should  not  compete  with  or  usurp  the  private  sector  can  be  traced  back  to  congressional 
committee  investigations  in  the  1930s  and  Bureau  of  the  Budget  Bulletins  in  the  1950s.  While  the 
desire  to  limit  the  government  to  "government  functions"  is  not  new,  the  1980s  saw  an 
administration  that  perceived  it  had  a  mandate  to  reduce  the  size  of  government:  consequently, 
the  CA  program  was  given  renewed  emphasis. 

(2)  Executive  Order  No.  1 2615.  Executive  Order  No.  12615  initiated  a  new  phase 
of  the  program.-  Prior  to  the  Executive  Order,  functions  were  inventoried  within  the 
government.  Those  found  to  be  commercial  were  studied,  and  those  that  could  be  done  cheaper 
by  the  private  sector  were  contracted.  The  Executive  Order  changed  the  ground  rules-3  percent 
of  the  target  population  would  be  studied  yearly,  and  30  percent  of  those  studied  would 
presumptively  be  contractible.  Cuts  would  be  levied  "up  front."  If  actual  studies  showed  cost 
efficiencies  favored  in-house  functions,  the  withdrawn  spaces  would  be  restored.  That  presumed, 
however,  that  studies  occurred,  and  that  .3  percent  of  the  target  population  was  studied.  Whereas 
agencies  had  previously  temporized,  now  there  were  compelling  reasons  to  do  studies. 

b.  Corps  Compliance  with  CA  Program.  The  Corps  of  Engineers  has,  compared  to 
most  other  government  agencies  (Defense  and  others),  complied  with  the  CA  program.  Recently, 
however,  the  Corps  sludiable  population  under  the  CA  program  has  dramatically  changed. 


^'Sillily  "I  I  iiiKlKins  I  xi-mpU'd.  I  xcliuhd.  or  I  mm  tlir-  Commmi.d  Aclivilux  I’rogram."  Memorandum  from  John 

Wall; icu.  Director  of  Resource  Management.  to  Commander  and  Director,  ISC,  .Vl.Iune  19N9. 

“Terlormancc  ol  Commercial  Activities."  executive  Order  No.  I2<»I5.  19  November  19, S7. 


(1)  Reduction  of  Studiable  Population.  In  1987,  Corps  activities  reported  the  civil 
works  (CW)  population  to  he  28,195,  with  8,500  studiable.  Although  the  population  in  19S8  was 
27,692,  studiahles  tell  to  4,714.  This  reduction  of  studiable  population  (over  40  percent)  was  not 
the  result  of  completed  studies,  but  because  more  positions  were  excluded  from  CA  study.  A 
smaller  studiable  population  means  fewer  studies;  fewer  studies  mean  fewer  cases  where 
contracting  is  indicated.  OMB's  cuts  are  rebuttable;  however,  rebuttals  would  require  evidence, 
namely,  completed  studies. 

(2)  Corps  CA  Reports  to  DRM.  Unfortunately,  the  format  for  Corps  CA  reports  to 
DRM  does  not  indicate  what  positions  were  reclassified.  MG  Kern.  Deputy  Chief  of  Engineers, 
instructed  DRM  to  resolve  the  population  shift  to  either  refute  Corps  submissions  or  justify  the 
estimates  to  OMB.  As  part  of  its  investigation,  DRM  asked  ESC  to  help  verify  the  baseline 
functional  estimates.  In  November  of  1989,  ESC  began  the  work  which  is  the  subject  of  this 
report. 

4.  ESSENTIAL  ELEMENTS  OF  ANALYSIS.  ESC's  role  in  DR  M's  CA  Baseline  Study  was 
to  analyze  the  declining  studiable  population  as  revealed  by  1987  and  1988  Held  agencies’ 
submissions.  ESC's  effort  was  clearly  delimited.  ESC  should: 

•  develop  an  objective  means  to  categorize  Corps  positions,  using  available 
information  sources,  and  compare  to  CA  data  submitted  to  DRM.  There  would 
be  no  attempt  to  create  a  new  database  or  to  issue  a  new  data  call  to  field 
organizations. 

•  consider  both  civil-  and  military-funded  positions,  although  the  impetus  for  the 
study  came  from  the  civil-funded  inventory. 

•  not  sample  FOAs  to  check  the  accuracy  of  their  submissions. 

•  not  review  the  rationale  of  function  categories  (excluded,  exempted,  and  excepted 
functions)  as  defined  in  ER  5-1-3,  Appendix  B. 

5.  METHODOLOGY.  This  section  presents  the  key  elements  of  the  problem  as  they  relate 
to  ESC's  methodology. 

a.  CA  Structure.  The  intention  of  the  CA  program  was  briefly  described  above.  As  a 
government-wide  program,  its  implementation  involves  many  issues.  ESC's  effort  had  to  be  within 
the  existing  framework. 

(1)  Regulations.  A  series  of  regulations  and  orders  governs  the  CA  program.3 
Together  they  dictate  the  scope  and  procedures  of  CA  studies.  ESC  was  concerned  only  with  the 
scope;  this  indicates  which  activities  are  considered  to  be  commercially  viable;  i.e.,  potentially 
contractible.  There  are  also  governmental  activities  (referred  to  as  stand  alone  and  excluded) 
which  have  no  private  sector  counterpart.  Other  areas  (termed  general  functional  areas  and 


3See  implementing  regulations:  HUnunpmcM  ( ommcrciat  Actn ilia  IVoiya/n.  Army  Regulation  (AK)  5-20  (Department  of  the 
Army  |I)A|.  20  (Ktoher  lOSii).  ami  Management  Commercial  Activities  Program.  I.ncineer  Regulation  (ll<)  5  1-5  (USACT,  1 
Deeemher  I0H7). 


discussed  below)  are  candidates  for  contract,  but  even  some  of  those  may  have  dispensations  of 
various  forms.  CA  procedure  refers  to  the  cost/benefit  analysis  to  which  a  function  is  subjected: 
how  positions  are  quantified,  solicitations  prepared,  costing  defined,  bids  compared,  questions 
resolved,  and  decisions  made. 

(2)  General  Functional  Areas  (GFA).  AR  5-20  and  ER  5-1-3  contain  listings  of 
GF/Vs  that  apply  to  the  Army  and  the  Corps  respectively.  DRM  has  augmented  the  GFAs  with  a 
special  list  of  "governmental"  areas  that  provides  an  identifiable  GFA  for  each  space.4  The  term 
"GFA"  is  used  throughout  this  report  to  encompass  that  "superset”  of  functional  areas.  (See 
Section  l().b  for  a  discussion  of  GFA  impact  on  baseline  inventories.)  There  are  over  200  GFAs 
applicable  to  Corps  activities.  Some  can  be  found  in  any  organization;  e.g.,  GFA  S709  is  for 
custodial  services.  Others  are  peculiar  to  the  Corps  -  Cl  12  is  lor  Operations  and  Maintenance  of 
Dams,  and  M027  for  Engineering  Management.  GFA  assignment  is  the  crux  of  establishing  the 
baseline.  If  DRM  had  an  accurate  and  credible  GFA  breakout  for  each  FOA,  ESC’s  intervention 
would  have  been  unnecessary. 

b.  Source  Data.  ESC’s  ability  to  develop  an  alternative  inventory  was  predicated  on 
finding  data  which  would  support  an  objective  approach.  ESC  envisioned  a  rule-based 
methodology.  This  would  take  a  position  (whether  full  time  equivalent  |FTE]  or  manpower 
space),  look  at  various  characteristics  of  that  position  (organization,  occupational  series,  etc.),  and 
assign  the  position  a  GFA  that  most  reasonably  characterizes  its  function.  Within  the  Corps, 
there  were  several  possible  sources  of  data  that  might  satisfy  ESC's  needs. 

(1)  Force  Configuration  File  (FORCON).  The  Directorate  of  Civil  Works  (DCW) 
uses  FORCON  to  translate  funding  into  manyears.  It  addresses,  however,  only  civil  spaces.  Since 
the  CA  program  applies  to  both  military  and  civil  manyears,  ESC  sought  a  database  which 
included  both  funding  types.  FORCON  tended  to  change  from  year  to  year,  frustrating  ESC’s 
ability  to  apply  the  same  rules  to  several  years  worth  of  data.  Above  all  else,  however, 

FORCON  s  database  did  not  provide  enough  information  to  construct  a  set  of  rules. 

(2)  DRM's  Inventory.  The  database  DRM  compiled  from  FOA  submissions  was 
never  considered.  A  good  part  of  the  CA  problem  could  be  attributed  to  the  absence  of  a  data 
base  that  would  permit  an  audit  trail  of  CA  categories  back  to  contributing  FOA  spaces.  The 
inventory  was  the  very  item  against  which  ESC’s  alternative  scheme  was  to  be  compared. 

c.  XF7  File.  The  Corps  of  Engineers  Management  Information  System  for  Personnel 
Administration  (COEMIS  PA)  is  the  Corps-wide  automated  personnel  system.5  It  covers  and 
supports  all  local  civilian  personnel  management,  both  civil-  and  military-funded  positions. 

Because  it  is  the  file  that  Personnel  uses  to  manage  activities  from  day-to-day,  there  is  an 
imperative  to  keep  it  accurate  and  up-to-date.  It  also  contains  full  organizational  and  functional 
information  that  ESC  would  necessarily  rely  on  to  construct  its  functional  mapping.  For  these 
reasons,  ESC  determined  that  COEMIS  PA  was  the  only  database  from  which  a  CA  baseline 
inventory  could  reasonably  be  generated.  The  lile  ESC  actually  used  is  an  extract  (referred  to  as 
an  XF7)  that  is  downloaded  to  tape  monthly  by  the  Engineer  Automation  Support  Activity 


4"1  Y  19X9  (  onimcrti.il  Activity  Inventory/Sclicilulc."  Memorandum  from  Directorate  of  Resource  Management  to  Field  Operating 
Activities  (FOA).  November  19X9  . 

"Personnel  Inlormalion  Systems  Corps  ot  engineers  Management  Information  System  for  Personnel  Administration."  engineer 
Pamphlet  (>xtl  I  I  (US ACC.  I  June  I9S7). 
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(EASA)  and  retained  lor  5  years.  Many  data  elements  of  the  XF7  are  of  no  practical  value  to 
ESC's  needs.  Therefore.  ESC  directed  EASA  to  cull  a  subset  of  elements  when  generating  copies 
for  analysis.  Figure  1  depicts  the  data  elements  comprising  the  XF7-extract. 


COEMIS  PA  DATA  ELEMENT 

COEMIS  ID 

Organization  Code 

22E 

Pay  Plan 

16A 

Grade 

ISA 

Function  Designator 

36A 

Work  Schedule 

32A 

Organization  Name 

22B 

Occupational  Series 

17A 

Functional  Class 

48A 

Army  Mgmt  Structure  Code 

36B 

Supervisory  Position 

51 A 

Position  Occupied 

34A 

Career  Program 

41A 

Command  Code 

6SA 

FA  Organization  Code 

94B 

Corps  Stratification 

15D 

Pay  Basis 

21 A 

FTE  Function  Code 

36C 

Budget  Element 

N/A 

Position  Title 

N/A 

Figure  i.  TABLE  OF  X17-EXTRACT  DATA  ELEMENTS 

6.  APPROACH.  Figure  2  shows  the  approach  proposed  to  DRM-the  creation  of  an 
alternative  baseline  CA  inventory  from  the  COEM1S  PA.  Because  the  COEMIS  PA  is  a  non-CA 
source  data  (non-CA  meaning  that  the  GFA  assignments  were  not  predetermined,  i.c.,  positions 
had  precoded  GFAs  that  would  frustrate  a  clear  audit  trail),  creation  of  an  alternative  baseline 
CA  inventory  depended  upon  marrying  COEMIS  data  with  ESC’s  assignment  rules.  The  initial 
intent  was  to  create  an  objectively  derived,  alternative  baseline  that  could  be  compared  to  the 
inventories  compiled  from  FOA  submissions.  By  using  the  COEMIS  XF7  file  ESC  could,  if 
necessary,  look  at  any  month  over  the  hist  5  years.  This  advantage  permits  seasonal  or  year-to- 
year  changes  to  be  factored  into  the  analysis. 

a.  Decision  Rules.  During  preliminary  meetings  with  DRM,  ESC  emphasized  that 
building  a  credible  baseline  depended  upon  how  much  information  could  be  inferred  from  the 
XF7  entries.  ESC  would  apply  a  series  of  rules  to  each  entry  in  the  file  to  assign  that  position  to 
a  GFA.  This  "mapping"  of  XF7  into  GFA  depended  upon  the  variability  in  the  XF7.  No  single 
data  element  was  sufficient  to  make  all  assignments.  The  First  Level  Organization  (FLO)  code 
could  support  some  assignments.  Those  with  FLO  =  ’E’  (public  affairs)  could  be  assigned  to 
GFA  M0I5.  But  it  was  insufficient  to  select  one  of  the  many  potential  GFAs  for  a  position  in 


Figure  2.  ESC’S  APPROACH  TO  ANALYZING  CA  DIFFERENCES 
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operations  (l<-L()  =  ’R").  The  15  defined  FLO  codes  could  not  support  assignments  to  over  200 
candidate  GFAs.  Keying  on  data  elements  that  have  a  large  number  of  admissible  entries  creates 
possibilities,  but  also  may  not  be  the  entire  answer.  There  are  hundreds  of  different  occupational- 
series  in  the  Corps,  but  one  series— civil  engineers  (GS  0S10) — is  found  in  9,000  Corps  positions. 
Since  there  is  not  an  exclusive  GFA  for  civil  engineers,  there  must  be  a  way  to  assign  them  to  a 
GFA  that  corresponds  to  their  actual  duties.  It  must  be  remembered,  however,  that  COEMIS  PA 
data  were  not  designed  to  support  the  CA  program.  For  ESC  to  succeed,  the  study  team  had  to 
comprehend  the  data  and  be  able  to  construct  a  mapping.  The  team  considered  it  a  two-phased 
process: 


(1)  Phase  /.  The  first  step  in  developing  the  method  was  to  fully  explore  the  XF7 
and  its  elements.  A  newly  obtained  data  file  should  always  be  viewed  with  some  trepidation.  Is  it 
in  the  expected  format?  Does  it  contain  the  data  elements  requested?  Does  it  contain  all  the 
records  of  interest?  Are  the  documented  (legal)  values  of  data  elements  the  only  ones  used? 
These  are  not  idle  questions.  In  this  action,  the  answer  to  everv  question  was  an  emphatic  No. 
For  that  reason,  ESC  spent  as  much  time  obtaining  the  data  and  puzzling  through  anomalies  as  in 
actually  preparing  the  final  methodology  (data  and  program  coding). 

(2)  Phase  II.  In  practice,  systems  analysis  and  software  development  arc 
interdependent.  ESC  did  not  routinely  review  the  XF7  without  considering  how  a  data  element 
could  be  used,  alone  or  in  conjunction  with  other  elements,  and  whether  it  would  facilitate  GFA 
assignments. 


(a)  Program  Logic.  As  mentioned  before,  "rules"  would  be  applied  to  the 
data  elements  on  the  XF7  to  determine  appropriate  GFA  assignments.  These  ”rules"-in  reality  a 
combination  of  computer  program  and  data— might  also  be  viewed  as  a  form  of  decision  table. 
ESC  created  data  element  files  in  which  were  coded  data  elemenl-GFA  combinations.'’  Logic  in 
the  program  was  added  or  changed  which  would  examine  a  data  element,  check  the  appropriate 
file/table  for  a  match  and,  if  indicated,  make  an  assignment.  The  logic  can  be  viewed  as  a 
decision  hierarchy.  There  are  three  general  steps:  first,  a  position  record  is  read  from  the  XF7 
file;  second,  checks  are  then  made  to  assure  that  the  position  is  in  the  target  population:  and 
third,  GFA  assignment  is  attempted  according  to  the  presence  or  absence  of  specific  instances  of 
data  elements. 


(b)  Assignment.  Assignment  logic  examines  elements  in  the  following  order: 
occupational  series,  organization,  corps  stratification  function,  and  first-line  organization  code. 
The  first  "rule"  that  is  satisfied  determines  the  GFA  assignment;  succeeding  "rules"  arc  not 
checked.  For  some  GFAs.  supervisory  status  may  also  influence  assignments.  If  no  GFA  is 
nominated,  the  position  is  not  assigned  a  code,  nor  is  it  counted  in  the  CA  results.  Figure  3 
portrays  the  process. 

b.  Report  Descriptions.  ESC  developed  reports  for  the  study  designed  to  be  used  as 
working  papers  and  compared  across  organizations.  Part  of  the  problem  that  led  to  the  Baseline 
Study  was  that  the  field  input  information  was  loo  aggregated,  and  there  was  no  audit  trail 
depicting  what  went  into  a  particular  GFA.  No  single  format  was  sufficient;  ESC’s  working 


(y 


IliiH-  hies  ;irc  documented  in  Annex  A. 
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APPLY  RULES  I  SELECT  TARGET 

TO  ASSIGN  GFA  1  POPULATION  MEMBER 


X 


i  read  next  record  from  XF7 


Is  position  active  [posocc  =_/  =  blank] 

yes  • '  J  - 

Is  the  organization  to  be  included 
yes  !- 

Is  it  Corps  of  Engineers  [command  code  =  CE] 
yes  J  I . 

Is  it  a  valid  function  [function  =  1  (mil)  or  2  (civ) 
yes  .Il¬ 
ls  it  an  applicable  pay  basis  [pay  basis  =  PA  or  PH] 
yes 


Is  it  an  applicable  time  basis  [time  basis  =  F,  G  or  H] 
no  -fl-  _  _  __ 

Is  the  occupational  series  coded 


Is  there  an  organization  code  directive 

no  - !  U_ 

Is  there  a  valid  corps  stratification  function 

no  . !  i . 

Is  the  first  line  organization  coded 


1  yes 


yes  7 
? 


GFA  assignment 
attempt  fails 


Select  designated  GFA! 

:  i  "  t:‘ 

Check  If  GFA  has  a 

supervisor/manager 

override 


Select  designated  GFA! 
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reports  focused  on  GFAs.  CA  categories,  and  funding.  Several  reports  were  defined,  and  the 
level  of  organizational  and  functional  detail  could  be  varied.  FOA-GFA.  This  report  lists  GFA 
assignments  for  individual  Districts,  Divisions,  and  FOAs,  Division  rollups  (division  plus  district 
offices),  and  USACE  totals.  There  are  actually  two  instances  of  GFAs-a  4-character  GFA,  and  a 
5-character  sub-GFA.  The  format  of  a  GFA  is  an  alphabetic  prefix  followed  by  3  digits.  Sub- 
GFAs  have  an  alphabetic  suffix  to  identify  subfunctions  of  the  parent  GFA.7  The  user  can  set  a 
switch  to  indicate  whether  sub-GFAs  should  be  printed  or  rolled  up  to  the  4-character  parent 
level.  Figure  4  shows  the  4-character  level  report. 

(1)  Division  Summaries.  ESC  designed  this  report  (Figure  5)  to  enable  total 
division  population  categories  to  be  easily  compared  and  to  quickly  reveal  if  the  candidate 
population  derived  from  the  XF7  falls  within  an  acceptable  range  of  DRM’s  inventory.  One 
caution  regarding  this  report:  the  USACE  entry  does  not  represent  only  the  sum  of  the  divisions 
included.  The  entry  also  includes  laboratories  and  other  FOAs  which  were  admissible  according 
to  the  FOA  file,  and  to  the  extent  that  they  were  represented  on  the  XF7  version  used.8 

(2)  FORCON.  The  Deputy  Chief  of  Engineers  asked  that  ESC  reduce  the 
complexity  of  the  FOA-GFA  report  to  facilitate  comparisons.  While  there  were  many  ways  this 
could  have  been  done,  ESC  and  DRM  decided  that  by  mapping  the  GFAs  into  FORCON 
functional  groupings  (Figure  6),  several  things  would  be  achieved.  First,  the  numbers  would  be 
highly  aggregated  as  the  Deputy  requested.  Second,  it  might  enable  the  XF7-derivcd  baseline  to 
be  more  easily  compared  to  both  DRM's  inventory  and  the  Civil  Works’  FORCON.  (DCW  had 
in  fact  asked  DRM  if  FORCON  categories  were  not  more  descriptive  than  the  GFAs.  To 
calibrate  the  two  profiles,  DCW  had  provided  DRM  with  a  list  showing  which  GFAs  were 
equivalent  to  which  FORCON  categories.  ESC  used  the  mapping  from  that  list.9) 


Tor  example,  (il'A  S71<>.  motor  vehicle  operation.  and  S7J6K,  heavy  truck  operation. 

^It  would  include  all  legal  organizations  as  identilied  in  the  Organization  I  lie  (see  Appendix  A  5). 
9 See  Annex  A  lor  C VI  A/I  OIU'ON  mapping. 
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Figure  4.  FIELD  OPERATING  ACTIVITY  GENERAL  FUNCTIONAL  AREA 
(FOA  GFA)  REPORT  (4-CIIARACTER  LEVEL) 
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Figure  4.  FIFLI)  OPERATING  ACTIVITY  GENERAL  FUNCTIONAL  AREA 
(FOA  GFA)  REPORT  (4-CI IARACTER  LEVEL)  -  CONTINUED 
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Figure  4.  FIELD  OPERATING  ACTIVITY  GENERAL  FUNCTIONAL  AREA 
(FOA  UFA)  REPORT  (4-CIIARACTER  LEVEL)  -  CONTINUED 


*  *  *  *  USACE  ROLLUP 

ORGANIZATION 

Government 

Stdaln  Exclu 

Commercial 

Study  Excpt 

Exnpt 

TOTAL 

CIVIL  FUNDED  ACTIVITIES 

USACE 

7009 

3078 

15043 

3186 

73 

28389 

LNVD 

897 

477 

3204 

638 

11 

5227 

MRD 

344 

191 

920 

218 

2 

1675 

NAD 

479 

231 

948 

137 

3 

1798 

NED 

236 

25 

225 

43 

2 

531 

NCD 

595 

211 

1717 

386 

8 

2917 

NPD 

652 

47S 

1320 

351 

3 

2801 

ORD 

655 

344 

2359 

386 

10 

3754 

SAD 

757 

426 

1675 

302 

6 

3166 

SPD 

446 

151 

652 

350 

4 

1603 

SWD 

628 

393 

1801 

360 

4 

3186 

MILITARY  FUNDED  ACTIVITIES 

USACE 

3324 

2409 

4035 

1597 

52 

11417 

LMVD 

15 

1 

9 

9 

0 

34 

HRD 

145 

268 

587 

292 

2 

1294 

NAD 

173 

506 

532 

194 

5 

1410 

NED 

50 

5 

32 

5 

0 

92 

NCC 

8 

0 

2 

12 

0 

22 

NPD 

119 

236 

197 

97 

3 

652 

ORD 

84 

123 

208 

102 

0 

517 

SAD 

141 

246 

565 

182 

5 

1139 

SPD 

108 

347 

380 

245 

4 

1084 

SWD 

161 

305 

408 

238 

3 

1115 

Figure  5.  DIVISION  SUMMARIES  REPORT 
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II.  COMPUTATIONAL  ENVIRONMENT 


7.  COMPUTER  CAPACITY.  The  data  files  were  too  large  to  allow  development  on  ESC’s 
current  IBM  AT-eompatible  microcomputers.  Fortunately,  ESC  was  able  to  pursue  development 
on  a  PRIME  6250  belonging  to  the  Belvoir  Research,  Development,  and  Engineering  Center. 

The  6250  falls  in  the  category  of  super  minicomputer.  It  is  a  large  machine  (8  megabytes  of 
RAM,  over  600  megabytes  of  disk  storage,  9-track  tape  capability).  The  large  storage  capacity 
and  processing  speed  of  the  6250  greatly  accelerated  both  development  and  production  times. 

8.  SOFTWARE.  ESC  used  all  the  software  tools  one  would  expect  to  find  on  a  machine  the 
size  of  the  PR  1 M E-editors,  tape  handlers,  compilers,  sort/merge  routines,  and 
communications/network  software.  The  program  was  written  in  SIMULA.10  This  is  a  powerful 
general  purpose  language  and  the  nestor  of  object  oriented  programming.  SIMULA  is 
particularly  well  suited  for  developing  prototype  programs,  such  as  ESC  developed  for  CA.  It 
enables  developers  to  add  or  change  features  without  incurring  unreasonable  reprogramming. 


m 


I  amprvdit.  (juihIkt.  Introduction  to  SlSH  l^X  f)7  (I Tied r.  Vicwcj*  &  Solin.  liniunschwcig,'\Vcishaden.  1VK3). 


15 


This  p;ige  intentionally  left  blank. 


III.  RESULTS  AND  FINAL  OBSERVATIONS 


9.  RESULTS.  ESC  produced  and  gave  to  DRM  a  CA  baseline  inventory  in  June  1990.11 
The  original  objective  (see  Figure  2)  of  comparison  had  given  way  to  the  need  for  a 
representative  inventory  that  could  be  used  to  open  dialogues  with  Divisions  and  FOAs. 

Although  the  intent  of  this  document  is  to  record  ESC's  methodology,  a  few  aspects  of  the  results 
deserve  some  mention. 

a.  USACE  Totals.  DRM  received  only  a  partial  response  to  its  November  1989  call  to 
FOAs  for  revised  CA  submissions  to  be  used  in  creating  a  new  baseline  inventory’.  Thus,  in  July 
1990  the  Deputy  Chief  of  Engineers  considered  using  ESC's  numbers  as  the  basis  for  opening 
discussions  with  FOAs  and  Divisions  regarding  their  CA  populations  and  inventories. 
(Interestingly,  OMB  has  estimated  the  Corps  civil-funded  studiable  population  to  be  between 
14,000  and  1 6,000- ESC's  calculation  was  15,043.) 

b.  EORCON,  DRM,  ESC  Comparison.  The  initial  study  intent,  envisioning 
comparisons  leading  first  to  discussions  and  then  to  data  refinement,  did  not  occur.  Near  the  end 
of  its  involvement,  ESC  participated  with  CW  and  DRM  in  attempts  to  compare  figures,  but 
conditions  prevented  any  resolution.  FORCON  did  not  have  the  specificity;  it  provided  a  familiar 
functional  breakout  but  was  too  aggregated  for  comparison  to  the  more  detailed  GFAs.  DRM’s 
efforts  had  been  frustrated  by  delays  in  getting  data  from  functional  managers.  By  default,  the 
COEMIS-based  estimates  became  the  bench  mark  and  not  the  check. 

c.  Drops.  Figure  3  showed  how  each  entry  on  the  XF7  was  tested  to  assure  that  it  was 
in  the  target  population.  Even  when  in  the  "zone,”  it  is  conceivable  that  no  GFA  assignment 
might  be  possible.  The  XF7-CA  program  records  what  may  have  been  the  critical  reason  why  a 
record  is  ignored  and  how  many  met  that  test  but  could  not  be  assigned.  Figure  7  gives  an 
example  of  this  processing  information  from  an  actual  execution.  The  tile  contained  56,316 
records.  Over  16,000  were  rejected  from  consideration.  Of  those  in  the  "zone,"  200  could  not  be 
assigned  a  GFA.  leaving  a  total  of  39,806  which  were  actually  in  the  final  tally. 


XI  7  RECORD  DISPOSITION 
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cl.  Population  Shifts.  As  previously  mentioned,  the  shift  in  studiable  population  in 
1987-88  was  the  reason  for  ESC’s  initial  involvement.  While  this  issue  was  later  subsumed  by  the 
need  to  find  a  meaningful  "baseline."  ESC  did  look  at  several  past  years  of  COEMIS  data  to 
compare  results  using  its  XF7-CA  characterization.  The  results  arc  shown  in  Figure  8.'“  ESC’s 
methodology  showed  no  distinguishable  differences  among  the  numbers  of  positions  in  each 
category  over  the  3-year  period.  Possibly,  ESC’s  XF7-GFA  method  was  insensitive  to  changes 
reducing  the  studiable  population.  It  appears  implausible,  however,  that  the  observed  50-percent 
decline  could  have  occurred  without  some  accompanying  change  in  the  organization  and  position 
structure  of  the  Corps. 

e.  VVorkload/Loeation  Qualifiers.  ESC  could  not  glean  all  CA-pertinent  attributes 
from  COEMIS.  Whether  a  person  operated  a  dam  or  a  lock  (the  same  occupational  scries 
applies),  or  whether  a  waterway  was  critical  or  non-critical  (based  on  tons  or  shipping)  are 
examples  of  key  CA  considerations  which  a  personnel  database  cannot  provide. 

10.  OBSERVATIONS.  Typically,  a  study  will  conclude  or  recommend.  The  products  of 
ESC’s  CA  Baseline  study  were  a  methodology  (embodied  in  a  computer  program  and  supporting 
data  element  files)  and  a  baseline  inventory  derived  from  applying  that  methodology  to  a  recent 
XF7  file. 


a.  A  Start.  An  XF7-CA  baseline  inventory  is  not  a  permanent  solution.  Districts, 
Divisions,  and  I'OAs  ultimately  must  be  responsible  for  compiling  accurate  CA  profiles  of  their 
personnel.  The  procedures,  however,  should  be  more  certain,  and  more  precise  standards  used. 
Functions  should  be  belter  considered.  Results  should  permit  aggregation,  but  not  at  the  expense 
of  losing  an  audit  trail  to  the  contributing  GFAs.  The  inability  to  check  submissions  forecloses 
any  consideration  of  consistency  across  I'OAs.  Objectivity,  specificity,  and  consistency  must  be 
achieved. 


b.  Functional  Taxonomy.  The  single  most  frustrating  aspect  of  the  Corps  CA  problem 
was  the  GFAs.  Because  they  are  of  uncertain  or  inherited  origin,  they  hinder  rather  than  help 

the  CA  program.  Suffice  it  to  say.  (he  structure  is  not  Linnaean.  A  cursory  review  of  the  list  of  0 

GFAs  might  suggest  adequate  coverage  of  Corps  functions.  Only  when  correlation  of  that  list  is 
attempted  with  other  Corps  taxonomies  (organizational  structure,13  Corps  Stratification, 

FORCON,  etc.)  does  its  unevenness  emerge.  There  are  two  GFAs  for  fish-related  l’unctions- 

009  and  Cl  14A.  There  is  one  GFA  for  technical  review  (021),  an  important  Corps  function 

involving  thousands  of  employees.  Also,  where  does  the  important  Corps  regulatory  authority 

fall?  Cl  13  mentions  only  regulatory  studies.  Because  the  functions  defined  in  ER  5-1-3  did  not  ® 

account  for  all  activities,  DRM  had  to  define  the  M-Codes.  This  provided  some  relief,  but  did 

not  cure  the  problem.  A  revised  set  of  GFAs,  whose  definitions  were  well  considered  and 

coordinated  among  functional  managers,  could  remove  much  of  the  guesswork  currently  found  in 

the  system. 

c.  A  CA  Database?  DRM  currently  has  a  C’A  database.  It  is,  however,  only  a  list  of 
studiable  commercial  activity  spaces  and  the  CA  study  program.  ER  5-1-3  does  allude  to  a 


^~NB:  A  IW  version  ol  I  he  XI  7  \v;is  missing  several  enliie  divisions.  Because  I  lie  distributions  lor  X«>.  87.  and  89  were  almost 
identical.  ISC  interred  that  a  good  version  ol  tile  XI -7  XX  would  contain  iiunil'ers  that  lollow  I  lie  same  pattern. 

^"Oiguni/alion  and  l  undion.  Divisions  and  Districts.'*  I  It  10  1  \  (USA(T„  iX  November  |9X»>). 
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USACE  Commercial  Activity  Inventory,  but  its  definition  lias  never  been  attempted.  ESC 
foresees  great  advantage  in  having  field  organization  record  position  and  GFA  data  in  the  same 
database.  The  XF7-CA  program  demonstrates  that  this  is  I'easiole,  but  its  method  of  inferring 
G FA  cannot  be  preferred  over  local  assignments.  There  is  even  slack  in  the  COEMIS-PA 
records  which  would  accommodate  such  a  code  and  would  not  burden  organizations  with  yet 
another  report  (if  that  is  the  intent  of  ER  5-1-3,  Appendix  G). 

d.  FI  E  vs  Positions.  Some  ambiguity  surrounds  the  basic  CA  specie.  The  COEMIS 
database  (and  therefore  the  XF7-CA  method)  covers  positions.  FORCON  deals  with  FTE 
workyears.  CA  studies  are  of  PTEs,  but  contracting  decisions  result  in  position  changes.  ESC’s 
methodology  looked  at  positions  that  were  coded  as  permanent,  whether  full-time  or  part-time. 

e.  Organizational  Culture.  A-76  is  not  a  popular  regulation  within  the  federal 
bureaucracy-including  the  Corps.  The  Corps,  however,  has  complied  with  it  well  enough  through 
the  years  to  be  considered  one  of  the  government’s  success  stories.14  It  is  not  hard  to  imagine 
that  there  are  situations  where  a  government  agency  might  be  willing  to  eliminate  marginal 
functions.  But.  after  peripheral  functions  have  been  studied,  the  core  functions  necessarily  come 
under  scrutiny.  Has  CA  attention  come  close  enough  to  those  core  functions  to  push  some  FOAs 
or  functional  managers  into  trying  to  shield  activities  they  previously  thought  were  safe? 
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1.  PURPOSE.  Annex  A  documents  the  input  data  used  to  create  the  Engineer  Studies 
Center's  (ESC)  Commercial  Activities  (CA)  baseline. 

2.  SCOPE.  This  Annex  defines  the  file  formats  and  data  elements  used  in  ESC's  XF7-CA 
program.  Accompanying  appendices  include  listings  of  data  element  files  used  with  the  XF7  file 
to  generate  the  baseline. 

3.  FILE  DESCRIPTIONS.  ESC's  baseline  procedure  is  data-driven.  Although  the  process 
is  said  to  be  "rule-based."  the  rule  is  based  on  explicitly  coded  data.  There  are  essentially  three 
file  types  in  the  system:  general  functional  area  (GFA).  XF7  data  element,  and  XF7  itself. 

a.  Central  Functional  Areas  (GFA).  The  basic  purpose  of  the  CA  effort  is  to  use 
valid  XF7  positions  to  compile  a  CA  profile.  The  GFA  file  defines  all  legitimate  GFAs  and  sub- 
GFAs  which  can  be  used  for  such  assignments.  It  merges  definition  data  found  in  Army  and 
Corps  documents.  The  lile  also  conta  ns  entries  that  define  GFA  category,  supervisory  induced 
changes,  and  a  reporting  alternative.  (See  Appendix  A-l  for  the  file  listing.) 

(1)  Category.  GFA  categories  define  which  functions  are  governmental  (not 
subject  to  CA  study)  and  which  are  commercial  (studiable).  For  an  explanation  of  subcategories, 
see  Engineer  Regulation  (ER)  5-1-3.  Appendix  B. 

(2)  Supervisory  GFAs.  ER  5-1-3  identifies  several  GFAs  where  some  individuals 
might  exercise  governmental  authority  (Cl  15  or  Cl  19).  Since  supervisory  status  seemed  to  be  the 
best  available  means  to  identify  such  situations.  ESC  inserted  a  self-check  in  those  few  functions 
so  that  this  status  is  checked  and  a  more  appropriate  GFA  subsequently  assigned. 


(3)  Report  Index.  Considering  the  number  of  GFAs  (in  excess  of  200).  it  was 
clearly  desirable  to  create  a  more  succinct,  "executive"  summary  of  the  results.  Force 
Configuration  (FORCON)  functions  were  chosen  as  the  desirable  vehicle  since  they  were  familiar 
and  more  manageable.  In  addition.  Civil  Works  (DCW)  asserted  that  FORCON  had  a  more 
accurate  view  of  Corps  functions.  By  creating  the  FORCON  format,  ESC's  Corps  of  Engineers 
Management  Information  System  (COEMIS)-based  profile  could  therefore  be  compared  to  both 
the  Directorate  of  Resource  Management’s  inventory  and  Civil  Works’  FORCON  projections. 
Figure  A-l  shows  the  mapping. 
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Figure  A-l.  MAPPING  OF  GENERAL  FUNCTION  AREAS  INTO  FORCON  FUNCTIONS1 


b.  XF7  Data  Element  Files.  The  following  are  brief  descriptions  of  the  data  element 
files  (Figure  A-2)  that  ESC  developed  for  GFA  assignments.  In  each  case,  particular  data 
elements  have  associated  GFAs. 

(1)  First  Level  Organizations.  First  level  organization  codes  (Figure  A-3)  are  a 
component  of  the  Corps  of  Engineers  Management  Information  System  for  Personnel 
Administration  (COEMIS  PA)  organization  code.  The  first  two  characters  of  the  code  determine 
the  division,  district.  Field  Operating  Activity  (FOA),  or  special  office.  The  third  character  is  the 
First  level  organization  code  and  is  used  to  designate  major  organizational  elements  (e.g..  counsel, 
public  affairs,  and  planning.)  Some  elements  may  not  have  merely  a 


1  Defined  by  DCW,  M;iy  I  WO. 
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21 

40 

L 

Title  of  GFA 

- - - 

Figure  A-2.  FORMAT  OF  GENERAL  FUNCTIONAL  AREA  ELEMENT  FILL 

single  I'unction.  For  that  reason,  the  first  level  organization  code  is  used  as  an  assignment  tactic 
only  when  other  GFA  assignment  rules  have  failed.  (See  Appendix  A-2  for  the  file  listing.) 

(2)  Corps  Stratification.  Corps  Stratification  (Figure  A-4)  classified  people  by  what 
they  actually  do  rather  than  by  position  title.2  An  accurate  functional  breakout  of  this  type 
would  be  a  readily  available  source  of  CA-related  data.  Unfortunately,  "Corps-Slral,"  is  no  longer 
sanctioned  by  the  Corps,  although  a  COFMIS  field  for  it  still  remains.  ESC  examined  the  XF7 
for  reasonably  accurate  "Corps-Slral”  codes  and  found  they  were  the  rule  with  few 


Corps  St  rati  Ileal  ion  System,” 


Information  Paper  from  l)Af  N-KMIJ-P,  17  December  1981. 
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Start  jj  Length  || 


II 

II 

Loc 
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II 
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II 
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cirst  Level  Organization 
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1 

l|  First  level  organization  code  as  defined 
||  in  EP  680-1-1,  Appendix  G. 

1 

II 

II 
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General  Functional  Area 
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II 
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Name 

11 

HI 
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40 
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||  Title  of  first  level  organization. 
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Figure  A -3.  FORMAT  OF  FIRST  LEVEL  ORGANIZATION  ELEMENT  FILE 


Data  Element 

1  II  II 

|  Start  ||  Length  || 

I  Loc  ||  !| 

1  ti  ;! 

Explanation 

Corps  Stratification  Code 
("Corps  strat") 

i  i  ii 
i  ii 

ll 

2 

j|  2-character  "Corps 
ii  fied  in  EP  680-1-1. 

» 

Strat"  code  identi- 

' 

General  Functional  Area 

!  II 

i  4  ii 

i  it 

5 

|j  GFA  associated  with 

ii  _  ...  __ 

"Corps  Strat"  function. 

Name 

It 

1  11  1 

40 

it 

||  Title  of  the  "Corps 

Strat"  function. 

Figure  A-4. 


FORMA  L  OF  CORPS  S  I  RATIFICATION  ELEMENT  FILE 


exceptions.'  Consequently,  ESC  mapped  the  "Corps-Strut"  codes  into  GFAs.  (See  Appendix  A- 
3  lor  the  file  listing.) 

(3)  Occupational  Series.  There  are  a  substantial  number  of  job  series  which  can  be 
associated  with  a  single  GFA  almost  exclusively.  This  file  (Figure  A-5)  contains  all  the  series 
listed  on  the  XF7  versions  that  ESC  received.  During  program  execution,  the  only  series  actually 
retained  are  those  with  an  associated  GFA.  Occupational  series  without  GFAs  indicate  they  have 
no  strong  correlation  with  a  single  GFA.  Those  series  which  can  apply  to  more  than  one  GFA 
must  invoke  rules  associated  with  other  data  elements  to  resolve  assignment.  For  example, 
lawyers  can  legitimately  be  in  M009  (Counsel)  or  C200  (Real  Estate  Acquisition);  accordingly,  a 
single  GFA  cannot  be  nominated.  (See  Appendix  A-4  for  the  file  listing.) 

(4)  Organization  Codes.  The  organization  code  data  file  (Figure  A-6)  has  a  dual 
purpose:  first,  it  defines  w'hich  organizations  will  be  processed;  second,  it  is  an  alternative  means 
of  assigning  GFAs  to  any  size  organizational  unit.  The  first  purpose  is  useful  in  excluding 
organizations  outside  the  CA  purview  (e.g.,  foreign  FOAs  such  as  the  Far  East  and  European 
Districts),  and  in  identifying  missing  organizations  from  the  XF7  file.  The  ability  to  assign  GFAs 
revolves  around  using  ORG-CODE  "masks."  There  is  no  limit-other  than  the  sheer  number  of 
existing  ORG-CODEs— to  the  number  of  entries  in  this  file.  As  an  XF7  record  is  being 
processed,  the  ORG-CODE  is  checked  against  entries  in  this  file  to  identify  any  matches  through 


Several  organizations  had  obviously  stopped  assigning  "Corps-Strut"  codes,  the  most  notable  was  I  IQ  USAGE. 
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Data  Element 


Start  ||  Length 
Loc 


Occupational  series 


b~ 


General  Functional  Area 


Name 


16 


30 


Explanation 


The  occupational  series  has  two  components:  the 
first  2  characters  are  either  "GS"  for  general 
schedule  positions,  or  "UB"  for  blue  collar 
jobs;  the  next  4  digits  are  the  values  actually 
used  within  the  program. 


GFA  associated  with  job  series. 


Title  of  job  series. 


Figure  A -5.  FORMAT  OF  OCCUPATIONAL  SERIFS  ELEMENT  FILE 
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Figure  A-6.  FORMA!  OF  ORGANIZATION  CODE  ELEMENT  FILE 


the  lost  character  of  the  "mask.”  It  there  is  a  match  anti  it  is  not  preempted  by  the  match  til'  a 
longer  "mask,"  then  the  record  is  assigned  the  designated  GFA.  (See  Appendix  A-5  lor  the  file 
listing.) 


c.  COEMIS  PA  (XF7).  The  data  essential  to  FSCs  method  are  extracted  from  the 
COEMIS  PA.  The  Engineer  Automation  Support  Activity  creates  the  XE7  file  monthly  to 
capture  the  personnel  status  of  the  Corps.  ESC  did  not  need  the  entire  XF7  file,  especially  the 
personal  data  portions.  The  extract  produced  for  ESC  contained  all  data  items  related  to  function 
and  organization. 
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GENERAL  FUNCTIONAL  AREAS 


GENERAL  FUNCTIONAL  AREAS 

Cl  FA 

CA 

Supervisory 

FORCON 

Code 

Category 

GFA 

Index 

GFA  Title 

Cl  00 

2 

07 

Opn  &  Main!  of  Flood  Control  Projects 

Cl  06 

2 

10 

Opn  of  Recreational  Areas 

Cl  06  A 

2 

10 

Controlling  Entry  Gate 

C106B 

2 

10 

Visitors  Center  Attendant 

C106C 

1 

10 

Law  Enforcement 

C106D 

2 

10 

Potable  &  Wastewater  Monitoring 

CIOS 

2 

05 

Opns  of  USACE  Floating  Plant 

Cl  09 

2 

10 

Fish  &  Hatcheries 

C110 

2 

05 

Maint  &  Repair  of  '  SACE  Floating  Plant 

cm 

2 

06 

Bank  Stabilization 

Cl  1 1 A 

2 

06 

Rip-Rap 

Cl  1  IB 

2 

06 

Excavation  &  Grading  for  Mats 

cmc 

2 

06 

Mat  Casting 

chid 

2 

06 

Mat  Loading 

Cl  1  IE 

2 

06 

Mat  Towing 

CHIP 

2 

06 

Mat  Sinking/Laying 

Cl  1 IG 

2 

06 

Other  Structures 

Cl  12 

2 

Cl  I2A 

07 

Opn  &  Maint  of  Dams 

C 1 1 2  A 

1 

07 

Gov  t  Function  Portion  of  Dam  Opns 

CI12B 

2 

07 

Dam  Opns 

Cl  I2C 

2 

07 

Routine  Maint  of  Dams 

CI12D 

7 

07 

Non-Routine  Maint  of  Dams 

C113 

2 

OS 

Studies  Supporting  Regulatory  Functions 

Cl  BA 

2 

OS 

Aerial  Photography/Remote  Sensing 

Cl  13B 

2 

OS 

Navigability  Studies 

Cl  14 

2 

10 

Natural  Resource  Management 

Cl  I4A 

2 

10 

Fish  Protection  &  Conservation 

Cl  I4B 

2 

10 

Wildlife  Conservation  &  Management 

Cl  I4C 

2 

10 

Forest  Management 

Cl  14D 

2 

10 

Soils  Management 

Cl  15 

2 

Cl  I5A 

12 

Opns  &  Maint  of  Locks  &  Bridges 

Cl  I5A 

1 

12 

Enforcement  Actions  at  Locks  (Critical 
Waterways) 

Cl  I5B 

2 

12 

Enforcement  Actions  at  Locks  (Non-Critical 
Waterways) 

A- 1  - 1 
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(I  FA 
Code 

CA 

Category 

Supervisory 

GFA 

FORCON 

Index 

GFA  Title 

CI15C 

1 

12 

Opns  of  Locks  on  Critical  Waterways 

Cl  15D 

12 

Opus  of  Locks  on  Non-Crilical  Waterways 

CII5E 

2 

12 

Routine  Maint  at  Locks  on  Critical 

Waterways 

C115F 

2 

12 

Routine  Maint  at  Locks  on  Non-Critical 
Waterways 

CI15G 

2 

12 

Emergency  Repair  of  All  Locks 

Cl  1 51 1 

2 

12 

Nonroutine  Maint  at  All  Locks 

Cl  151 

2 

12 

Opn  &  Maint  of  Bridges 

Cl  16 

2 

12 

Opn  &  Maint  (Open  Water  Navigation) 

Cl  16  A 

2 

12 

Drift  &  Debris  Removal 

C116B 

2 

12 

Clearing  &  Snagging 

Cl  16C 

2 

12 

Removal  of  Wrecks 

C116D 

2 

12 

Clearing  &  Repair  of  River  Training  & 
Contractual  Work 

C116E 

2 

12 

Vessel  Traffic  Advisory 

C116F 

2 

12 

Others 

Cl  17 

2 

12 

Opns  &  Maint  of  Jetties  &  Breakwaters 

Cl  18 

2 

09 

Opns  &  Maint  of  Hydropower  Facilities 

Cl  ISA 

1 

09 

Government  Portion  of  Hydropower  Opns 

CIISB 

2 

09 

Other  Hydropower  Opns 

Cl  ISC 

2 

09 

Routine  Maint  of  Critical  Hydropower 
Facilities 

C1ISD 

2 

09 

Other  Hydropower  Maint 

Cl  19 

2 

16 

Opn  &  Maint  of  the  Washington  Aqueduct 

C 1 1 9  A 

1 

16 

Treatment  &  Distribution 

C1I9B 

2 

16 

Other  Opns  &  Maint 

Cl  20 

3 

M027 

03 

Designs,  Plans,  Specs.  &  Drawings  (PLANS 
&  SPECS) 

C12I 

2 

M027 

02 

Non  A-E  Professional  Services 

Cl  22 

3 

M027 

03 

Tech  Review  of  In-house  &  Contractor 
(TECH  REVIEW) 

Cl  23 

2 

M027 

03 

Hydraulic  &  Hydrologic  Field  Investigations 
(H&H  DATA) 

Cl  24 

2 

M027 

03 

Subsurface  Exploration  Services 
(DRILLING) 

Cl  25 

2 

M027 

03 

Surveying  &  Mapping  Services 
(SURVEYING) 

A- 1-2 
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UFA 

Code 

CA 

Category 

Supervisory 

UFA 

FORCON 

Index 

UFA  Title 

C125T 

4 

M 

03 

ETL's  Terrain  Analysis  Center 

Cl  26 

2 

■ 

01 

Drafting  Services  (DRAFTING) 

Cl  27 

2 

16 

Laboratory  Materials  Testing  Services 

(TESTING) 

Cl  28 

2 

M027 

03 

Other  Professional  A-E  Service  (OTHER 

A-E) 

C200 

2 

13 

Real  Estate  Acquisition 

C201 

2 

13 

Employee  Relocation  Assistance  Program 

C202 

2 

13 

Real  Estate  Appraisal 

C999 

2 

13 

Other 

HI  15 

2 

01 

Clinics  &  Dispensaries 

HI  17 

01 

Medical  Records  Transcription 

HI  18 

01 

Nursing  Services 

HI  19 

01 

Preventive  Mainl 

HI  20 

01 

Occupational  Health 

11121 

01 

Drug  Rehabilitation 

1 1999 

01 

Other  Health  Services 

J507 

2 

01 

Electronic  &  Communications  Equipment 

J999 

2 

01 

Other  Equipment 

M00I 

1 

04 

Management  of  the  Construction  Division 

M002 

1 

16 

Management  of  the  Opns  Division 

Ml  MO 

1 

13 

Real  Estate  Division 

M004 

I 

01 

Resource  Management/Comptroller 

M005 

1 

16 

Program  Development 

M006 

1 

14 

Management  of  R&.D 

M007 

1 

01 

Installation  Services  Management 

MOOS 

1 

02 

Planning 

M009 

0 

01 

Counsel/Legal 

M010 

1 

01 

Contracting 

MO  11 

1 

01 

Visual  Information  Management 

M0I2 

1 

01 

Education  &  Training  Management 

MO  13 

1 

01 

Management  of  ADP  Functions  in  IM 

MO  14 

1 

01 

Management  of  RPMA 

MO  15 

1 

01 

Public  Affairs 

MO  16 

0 

01 

Management  of  Personnel  &  EEO 

MO  17 

0 

01 

Inspector  General  Management  &  Opns 

MO  IS 

0 

01 

Internal  Review  &  Audit  Office 

(iLNLKAL  FUNCTIONAL  AULAS  (CON  PI)) 


UFA 

Code 

CA 

Category 

Supervisory 

CIA 

FORCON 

Index 

<1  FA  Title 

MO  19 

0 

01 

Command  Stall' 

M020 

0 

01 

Safety  &  Occupational  Health 

M021 

1 

05 

Dredging  Management 

M022 

1 

01 

Studies  Management 

M023 

1 

01 

WRSC  Management 

M024 

1 

01 

Logistics  Management 

M025 

0 

01 

Security  &  Law  Enforcement 

M026 

0 

11 

Emergency  Management 

M027 

1 

03 

Management  of  the  Engineering  Division 

M02K 

I 

16 

Project  Management 

R660 

2 

01 

RDT&E  Support 

S700 

2 

01 

Natural  Resource  Services 

S70I 

2 

01 

Advertising  &.  Public  Relations 

S702 

2 

01 

Financial  &  Payroll 

S703 

2 

01 

Debt  Collection 

S709 

2 

01 

Custodial  Services 

S7I0 

2 

01 

Pest  Management 

S712 

2 

01 

Refuse  Collection  &.  Disposal  Services 

S713 

2 

01 

Food  Services 

S714 

2 

01 

Furniture 

S715 

2 

01 

Office  Equipment 

S7I6 

2 

01 

Motor  Vehicle  Opn 

S716A 

2 

01 

Taxi  Service 

S7I6B 

2 

01 

Bus  Service 

S716C 

2 

01 

Motor  Pool  Opn 

S7I6D 

2 

01 

Crane  Opn 

S716E 

2 

01 

I  leavy  Truck  Opn 

S716F 

2 

01 

Construction  Equip  Opn 

S716I 

2 

01 

Driver  or  Operator  Licensing  or  Training 

S7I6J 

2 

01 

Other  Vehicle  Opns 

S716K 

2 

01 

Fuel  Truck  Opns 

S7I6M 

2 

01 

Tow  Truck  Opns 

S7I7 

2 

01 

Motor  Vehicle  Maint 

S717A 

2 

01 

S717C 

2 

01 

S717D 

2 

01 

S717E 

2 

01 

_ 

GENERAL  FUNCTIONAL  AREAS  (CONTI)) 


UFA 

Code 

CA 

Category 

Supervisory 

UFA 

FOKCON 

Index 

UFA  Title 

S717F 

2 

01 

S717G 

2 

01 

S7I7H 

2 

01 

S7I7I 

2 

01 

S717J 

2 

01 

S7I7K 

2 

01 

S717L 

2 

01 

S717M 

2 

01 

S71S 

2 

01 

Fire  Prevention 

S71SA 

2 

01 

S7ISB 

2 

01 

S71SC 

2 

01 

S71SD 

2 

01 

S7ISE 

2 

01 

S71SF 

2 

01 

S7ISG 

2 

01 

S7ISII 

2 

01 

S724 

01 

Guard  Services 

S724A 

3 

01 

S724B 

3 

01 

S724E 

3 

01 

S724S 

-> 

.> 

01 

S725 

2 

01 

Electrical  Plants  &  Heating 

S726 

2 

01 

Healing  Plants  &  Systems 

S727 

T 

01 

Water  Plants  &  Systems 

S72X 

2 

01 

Sewage  &  Waste  Plants  &  Systems 

S729 

2 

01 

Air  Conditioning  &  Refrigeration  Plant 

S730 

2 

01 

Other  Utilities 

S732 

2 

01 

Warehousing  &  Distribution  of  Publications 

syyy 

2 

01 

Other  Installation/FOA  Services 

TSOI 

2 

01 

Storage  &  Warehousing 

TSOI  A 

2 

01 

TS01B 

2 

01 

tsoic: 

2 

01 

TSOI  D 

2 

01 

TSOI  I* 

2 

01 

TSOI  F 

2 

01 
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(»FA 

Code 

CA 

Category 

Supervisory 

c;ka 

I ORCON 
Index 

GFA  Title 

TSOI 

2 

01 

TSOI 

2 

01 

TSOI 

2 

01 

TS05 

2 

01 

Opn  of  Bulk  Liquid  Storage 

TS06 

2 

01 

Printing  &  Reproduction 

TS07 

2 

MO  1 1 

01 

Visual  Information  Services 

TS07 

2 

MO  11 

01 

Still  Photography 

TS07 

2 

M01 1 

01 

Motion  Photography 

TS07 

2 

M01 1 

01 

Television 

TS07 

2 

MO!  1 

01 

Audio 

TS07 

2 

M01 1 

01 

Graphic  Art 

TS07 

2 

MO  11 

01 

Visual  Information  Libraries 

TS07 

2 

MO  11 

01 

Visual  Information  Technical 

Documentation 

TS07 

2 

MO  11 

01 

Visual  Information  Production 

TS07 

2 

MO  11 

01 

Visual  Information  Distribution 

TS07 

2 

MOl  1 

01 

Visual  Information  Records 

TS09 

2 

01 

Administrative  Telephone  Service 

TSIO 

2 

01 

Air  Transportation  Services 

TS11 

2 

01 

Water  Transportation  Services 

TS1 1 

2 

01 

IS  1 1 

2 

01 

TS16 

4 

01 

Telecommunication  Centers 

TS17 

4 

01 

Other  Communications  &  Electronics 

Systems 

TSIO 

2 

01 

Preparation  &  Disposal  of  Excess  &  Surplus 

TS20 

2 

01 

Administrative  Support  Services 

TS20 

2 

01 

Word  Processing 

TS20 

2 

01 

Reference  &  Technical  Libraries 

TS20 

2 

01 

Microfilming 

TS20 

2 

01 

Internal  Mail  &  Messenger  Service 

TS20 

2 

01 

Translation  Services 

TS20 

2 

01 

Publications  Distribution  Centers 

TS20 

2 

01 

Field  Printing  &  Publication 

TS20 

2 

01 

Compliance  Auditing 

TS20 

2 

0, 

Court  Reporting 

TOW 

2 

01 

Other  Non-Manufacturing 

U.700 

2 

01 

Specialized  Skill  Training 

U500 

2 

01 

Professional  Development 

GENERAL  FUNCTIONAL  AREAS  (CONTI)) 

GFA 

CA 

Supervisory 

FORCON 

Code 

Category 

GFA 

Index 

GFA  Title 

U520 

0! 

Graduate  Education  (Full  Time) 

U530 

01 

Other  Full-Time  Education  Programs 

U800 

01 

Training  Development  &  Support 

U999 

01 

Other  Training  Support  Functions 

WS24 

2 

01 

Data  Processing  Services 

W824A 

2 

01 

Opns  of  ADP  Equipment 

WcS24B 

2 

01 

Production  Control  &  Customer  Services 

W824C 

2 

01 

ADP  Magnetic  Media  Library 

W824D 

2 

01 

Data  Transcription  &  Entry 

W824E 

2 

01 

Teleprocessing 

VV824F 

2 

01 

Acceptance  Testing  &  Recovery 

VV824G 

2 

01 

Punch  Card 

VV824H 

2 

01 

Other  ADP  Opns  &  Support 

W825 

2 

01 

Maint  of  ADP  Equip 

W826 

2 

01 

Systems  Design,  Development  & 

Programming 

W826A 

2 

01 

Development  &  Maint  of  Applications 

W826B 

2 

01 

Development  &  Maint  of  Systems 

Software 

W827 

2 

0! 

Software  Services  for  Tactical  Computers 

W999 

2 

01 

Other  ADP  Functions 

X9.17 

2 

01 

Logging  &  Lumber 

X939 

2 

01 

Construction  Products 

X999 

2 

01 

Other  Products 

Z99I 

2 

01 

Family  Housing 

Z99IA 

2 

01 

Rehabilitation-Tenant  Changes 

Z991B 

2 

01 

Roofing 

Z991C 

2 

01 

Glazing 

Z99ID 

2 

01 

Tiling 

Z99IE 

2 

01 

Exterior  Painting 

Z991F 

2 

01 

Interior  Painting 

Z991G 

2 

01 

Flooring 

Z99IH 

2 

01 

Screens,  Blinds,  etc. 

Z991I 

2 

01 

Appliance  Repair 

Z991J 

2 

01 

Electrical  Repair 

Z99IK 

2 

01 

Plumbing 

Z99IL 

2 

01 

Heating  Maint 

Z99IM 

2 

01 

Air  Conditioning  Maint 
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general  functional  areas  (contd) 


UFA 

Code 

CA 

Category 

Supervisory 

CiFA 

FORCON 

Index 

GF'A  Title 

Z99 1  N 

2 

01 

Emergency  &  Service  Work 

799 1 T 

2 

01 

Other  Work 

7.992 

2 

01 

Family  Housing 

Z992A 

2 

01 

Rehabilitation-Tenant  Changes 

Z992B 

2 

01 

Roofing 

Z992C 

2 

01 

Glazing 

Z992D 

2 

01 

Tiling 

Z992E 

2 

01 

Exterior  Painting 

Z992F 

2 

01 

Interior  Painting 

Z992G 

2 

01 

Flooring 

Z992H 

2 

01 

Screens,  Blinds,  etc. 

Z992I 

2 

01 

Appliance  Repair 

Z992J 

2 

01 

Electrical  Repair 

Z992K 

2 

01 

Plumbing 

Z992L 

2 

01 

Heating  Mainl 

Z992M 

2 

01 

Air  Conditioning  Maint 

Z992N 

2 

01 

Emergency  &  Service  Work 

Z992T 

2 

01 

Other  Work 

7.992 

2 

01 

Grounds  &  Surface  Areas 

7.992  A 

2 

01 

Grounds  (Improved) 

7992  B 

2 

01 

Grounds  (Other  Than  Improved) 

Z993C 

2 

01 

Surfaced  Areas 

Z997 

2 

01 

Railroad  Facilities 

Z998 

2 

01 

Waterways  &  Waterfront  Facilities 

Z999 

2 

01 

Other 
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APPENDIX  A-2  TO  ANNEX  A 
FIRST  LEVEL  ORGANIZATIONS 


FIRST  LEVliL  ORGANIZATIONS 

()R(>  Code 

c;i  a 

Organization 

0 

MO  19 

Executive  Office 

7 

M007 

Logistics 

S 

MO  IS 

Intern;il  Review 

B 

M004 

Office  of  Comptroller 

C 

MO  15 

Public  Affairs 

D 

M020 

Safety 

E 

M009 

Counsel 

F 

M012 

Personnel 

G 

MOI 1 

Administrative  Services 

H 

M005 

Program  Development 

I 

MO  13 

Information  Management 

J 

MO  13 

ADP  Office/Center 

K 

MOOS 

Planning 

L 

M027 

Engineering 

M 

MODI 

Construction-Operations 

N 

M003 

Real  Estate 

P 

MO  10 

Contracting 

0 

M00I 

Construction 

R 

M002 

Operations 

S 

MO  17 

Provost  Marshal 

Y 

MO  IS 

Audit 
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APPENDIX  A-3  TO  ANNEX  A 


CORPS  STRATIFICATION  CODE  FILE 


COUPS  STRATIFICATION  CODE  I  I I  K 


(JFA 

Code 

(;fa 

Stratification  Code 

A1 

MOOS 

Planning  and  Reports  [’A’  =  PLANNING] 

A2 

MOOS 

Flood  Plain/Urhan  Studies 

A3 

MOOS 

Environment  &  Studies 

BO 

Cl  20 

Structural 

Bl 

C122 

Design/Technical  |’B’  =  ENGINEERING] 

Engineering 

B2 

Cl  20 

Foundations  &  Materials 

B3 

Cl  22 

Hyd  ra  u  1  ies/Hyd  ro  logy 

B4 

Cl  23 

Relocations 

B5 

Cl  22 

Estimating  &  Specifications 

B6 

Cl  25 

Survey 

B7 

Cl  22 

Electrical/Mechanical 

BS 

C12S 

General  Engineering 

B9 

Cl  26 

Drafting  and  Mapping 

Kl 

Cl  25 

Field  Survey  |'K’  =  FIELD  ENGINEERING] 

K2 

Cl  24 

Tesiing/Exploration 

K3 

C12S 

Field  General  Engineering 

PI 

Ml  )10 

Contract  Admin  |  P’  =  CONSTRUCTION] 

P2 

MODI 

Supervision  &  Inspection 

LI 

MODI 

Field  Inspection  |'L’  =  FIELD  CONSTRUCTION] 

L2 

M02S 

Fields  Contract  Admin 

Cl 

Cl  12 

Hydro-Power  |  C’  =  OPERATIONS] 

C'2 

M021 

Navigation 

C3 

M002 

Regulatory  Functions 

C'4 

Cl  13 

Resource  Management 

C5 

Ml  102 

Plant  &  Maintenance 

C6 

M002 

Mise.  Operations 

Ml 

Cl  10 

Floating  Operations  |’M'  =  FIELD  OPERATIONS] 

M2 

Cl  15 

Locks  &  Dams 

M3 

Cl  IS 

Field  Power  Operations 

M4 

Cl  16 

Field  Plant  &  Maintenance 

M5 

Cl  06 

Field  Resource  Management 

M6 

Cl  17 

Mise.  Field  Operations 

M7 

CIOS 

Dredging 

MS 

Cl  13 

Regulator}  Functions 

D 1 

C200 

Acquisitions  |'D'  =  REAL  ESTATE| 

D2 

C202 

Appraisals 

D3 

M003 

Management  «Sc  Disposal 

D4 

Mill  13 

Planning  «Sc  Control 
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CORPS  STRATIFICATION  CODE  FILE  (CONTI)) 

GFA 

Code 

GFA 

Stratification  Code 

Nt 

mm 

Acquisition  [’N’  =  FIELD  REAL  ESTATE] 

N2 

mm 

Appraisals 

N3 

M003 

Management  &  Disposal 

N4 

M003 

Planning  &  Control 

El 

M004 

Budget  |’E'  =  Financial] 

E2 

S702 

Finance  &  Accounting 

E3 

MU  18 

Audit 

E4 

M0U4 

Management  Analysis 

E5 

M005 

Program  Development 

FI 

T820 

Secretarial  Typing  |’F  =  ADMIN  SERVICES] 

F2 

T806 

Reproduction 

F3 

T820 

Mail  &  Records 

F4 

T820 

General  Services/Admin 

F5 

T820 

Clerical 

F6 

T820B 

Library 

G 1 

MO  16 

Recruiting  and  Placement  ]’G’  =  PERSONNEL] 

G2 

MU  16 

Position  Pay  Mgmt 

G3 

MU  16 

Mgnit  &  Employee  Relations 

G4 

MU  16 

Technical  Services 

G5 

MU  16 

Manpower  Management 

G6 

MU12 

Training 

HI 

W826 

Systems  &  Programming  ]’H’  =  ADP] 

H2 

VV824 

Computer  Operations 

II 

M024 

Procurement  |T  =  PROCUREMENT  &  SUPPLY] 

12 

M024 

Supply 

13 

MUIU 

Contracts 

14 

MU24 

GFE  Procurement 

J1 

MUU9 

Counsel  [T  =  MISCELLANEOUS] 

J2 

MU  15 

Public  Affairs 

J3 

MU2U 

Safely 

J4 

MU25 

Security/Provost  Marshal 

J5 

MU  19 

Executive  Office 

J6 

U5UU 

Trainees 

J7 

MU  16 

EEO 

J8 

MU  17 

Engineer  IG 

jy 

DPCA 

OI 

T820 

Field  Secretarial/Typing  ]’0’  =  FIELD  SUPPORT] 

02 

S709 

Field  Admin  Services 

03 

S7U2 

Field  Financial 

04 

MU  16 

Field  Personnel 

05 

MU24 

Field  Supply 

06 

S999 

Mise.  Field  Services 

07 

U3UU 

Field  Trainees 

08 

MUU7 

Field  Clerical 
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APPENDIX  A-4  TO  ANNEX  A 


OCCUPATIONAL  SERIES  FILE 


OCCUPATIONAL  SLUILS  KILL 

Occupational 

Series 

CIA 

Series  Title 

GS( )()()() 

GS( )()()! 

.Trade  Crafts 

GS0008 

.Installation  Admin 

GS00I8 

M020 

.Safety  and  Occupational  Health 

GS(K)I9 

M020 

.Safety  Technician 

GS0020 

MOOS 

.Community  Planning 

GS0021 

MOOS 

.Community  Planning  Technician 

GS0023 

.Outdoor  Recreation  Planning 

GS0025 

Cl  06 

.Park  Ranger 

GS0026 

GS0028 

.Environmental  Protection  Specialist 

GSOI  >29 

.Environmental  Protection  Assistant 

GS0080 

M025 

.Security  Administration 

GS0081 

.Fire  Protection  and  Prevention 

GSOI  >83 

S724 

.Police 

GS0085 

S724 

.Security  Guard 

GS0086 

.Security  Clerical  and  Assistance 

GSOI  >90 

.Guide 

GS0099 

MO  16 

.General  Student  Trainee 

GS0I01 

.Social  Science 

GS0102 

.Social  Science  Aid  &  Technician 

GSOI 10 

.Economist 

GS01I9 

.Economics  Assistance  Program  Specialist 

GS01 23 

GSOI  32 

.Intelligence 

GSOI  35 

.Foreign  Agricultural  Affairs 

GS0150 

.Geography 

GS0I60 

.Civil  Rights  Analysis 

GS0I70 

.History 

GS01.80 

.Psychology 

GS0I84 

.Sociology 

GSOI  90 

.General  Anthropology 

GSOI  93 

.Archeology 

GSOI  99 

MO  1 6 

.Social  Science  Student  Trainee 

GS020I 

.Personnel  Management 

GS0203 

.Personnel  Clerical  a.'.d  Assistance 

GS0204 

.Military  Personnel  Clerical  and  Technician 

OCCUPATIONAL  SLR  IKS  KILL  (CONTI)) 


Occupational 

Series 

OKA 

Series  Title 

GS0205 

.Military  Personnel  Management 

GS()2()y 

GS0212 

.Personnel  Staffing 

GS0221 

.Position  Classification 

GS0230 

.Employee  Relations 

GS0233 

.Labor  Relations 

GS0235 

.Employee  Development 

GS0246 

.Contractor  Industrial  Relations 

GS0260 

.Equal  Employment  Opportunity 

GS0299 

GS0300 

GS0301 

.Miscellaneous  Administration  and  Program 

GS0302 

.Messenger 

GS0303 

.Miscellaneous  Clerk  and  Assistant 

GS0304 

.Information  Receptionist 

GS0305 

.Mail  and  File 

GS0309 

.Correspondence  Clerk 

GS0312 

.Clerk-Stenographer  and  Reporter 

GS03I3 

.Work  Unit  Supervising 

GS0316 

GS031S 

.Secretary 

GS0322 

.Clerk  Typist 

GS0332 

W.324 

.Computer  Operation 

GS0334 

W826 

.Computer  Specialist 

GS0335 

W.324 

.Computer  Clerk  and  Assistant 

GS0340 

M(M)5 

.Program  Management 

GS034I 

.  Ad  m i  n  ist  ra  t  ive  Officer 

GS0342 

.Support  Services  Administration 

GS0343 

.Management  Analysis 

GS0344 

.Management  Clerical  and  Assistance 

GS0345 

.Program  Analysis 

GS0346 

.Logistics  Management 

GS0350 

.Equipment  Operator 

GS035I 

.Printing  Clerical 

GS0355 

.Calculating  Machine  Operation 

GS0356 

.Data  Transcriber 

GS0357 

.Coding 

GS036I 

.Equal  Opportunity  Assistance 

GS03S2 

.Telephone  Operating 

GS03S5 

.Teletypist 

GS03SS 

.Cryptographic  Equipment  Operations 

OCCUPATIONAL  SERIES  FILE  (CONTI)) 


Occupational 

Series 

(;i\ 

Series  Title 

G  St  1389 

.Radio  Operator 

GS0.39I 

.Communications  Management 

GS0392 

.General  Communications 

G  St  139.3 

.Communications  Specialist 

GS0394 

.Communications  Clerical 

GS0399 

MO  16 

.Admin  and  Office  Support  Student  Trainee 

GS0401 

.General  Biological  Science 

GS0403 

.Microbiology 

GS0404 

.Biological  Technician 

GS0408 

.Ecology 

GS0410 

.Zoology 

GS0414 

.Physiology 

GS0430 

GS0435 

.Plant  Physiology 

GS0437 

.Horticulture 

GS0454 

.Range  Conservation 

GS0457 

.Soil  Conservation 

GS0460 

C114C 

.Forestry 

G  St  >462 

C114C 

.Forestry  Technician 

GS0470 

C114D 

.Soil  Science 

GS047I 

.Agronomy 

GS0480 

C 1 1 4  A 

.Gen'I  Fish  and  Wildlife  Administration 

GS04S2 

CI14A 

.Fishery  Biologv 

GS04S6 

.Wildlife  Biology 

GS0499 

MO  16 

.Biological  Science  Student  Trainee 

GS050I 

.Financial  Administration  and  Program 

GS0503 

.Financial  Clerical  and  Assistance 

GS0505 

.Financial  Management 

GS05I0 

.Accounting 

GS05I1 

.Auditing 

GS0520 

G SOS 25 

.Accounting  Technician 

GS0530 

.Cash  Processing 

GS0S40 

.Voucher  Examining 

GS0544 

.Payroll 

GS0545 

.Military  Pay 

GS0560 

.Budget  Analysis 

GS056I 

.Budget  Clerical  and  Assistance 

GS0590 

.Time  and  Leave 

GS0599 

MO  16 

.Financial  Management  Student  Trainee 

GS0602 

HI  15 

.Medical  Officer 
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OCCUPATIONAL  SKRIKS  KILL  (CON  I  T)) 


Occupational 

Series 

CIA 

Series  Title 

G  S()f>  10 

mm 

.Nurses 

GS0ft40 

■Sin 

.Health  Aid  and  Technician 

GS0ft45 

H 1 15 

GS0ft47 

HI  15 

.Diagnostic  Radiologic  Technologist 

G SOft 79 

H 1 15 

.Medical  Clerk 

GS0690 

HI  15 

.Industrial  Hygiene 

GS0ft99 

MO  16 

.Medical  and  Health  Student  Trainee 

GS0749 

GS0800 

GSOtSOI 

.General  Engineering 

GS0802 

.Engineering  Technician 

GS0803 

.Safety  Engineering 

GS0804 

.Fire  Prevention  Engineering 

GS()80ft 

.Materials  Engineering 

GS0807 

.Landscape  Architecture 

GS0808 

.Architecture 

GS0809 

.Construction  Control 

GS0810 

.Civil  Engineering 

GS0817 

.Surveying  Technician 

GS0818 

.Engineering  Drafting 

GS0819 

.Environmental  Engineering 

GS0828 

.Construction  Analyst 

GS0830 

.Mechanical  Engineering 

GS0850 

.Electrical  Engineering 

GS0854 

.Computer  Engineering 

GS0855 

.Electronics  Engineering 

GS0856 

.Electronic  Technician 

GS08ftl 

.Aerospace  Engineering 

GS0865 

GS087I 

.Naval  Architecture 

GS0873 

.Ship  Surveying 

GS0881 

.Petroleum  Engineering 

GS0893 

.Chemical  Engineering 

GS0895 

.Industrial  Engineering  Technician 

GS0896 

.Industrial  Engineering 

GS0899 

.Engr  and  Arch  Student  Trainee 

GS0905 

.General  Attorney 

GS0950 

.Paralegal  Specialist 

C>S()9ft2 

.Contact  Representative 

GS09ft3 

.Legal  Instruments  Examining 

GSOftSft 

.Legal  Clerk  and  Technician 

OCCUPATIONAL  SERIFS  FILL  (CON' IT)) 


Occupational 

Series 

(I  FA 

Series  Title 

GSI001 

.General  Arts  and  Information 

GSI010 

.Exhibits  Specialist 

GS1015 

.Museum  Curator 

GSI  016 

.Museum  Specialist  and  Technician 

GSI020 

T807E 

.Illustrating 

GSI021 

.Office  Drafting 

GS 1035 

MO  15 

.Public  Affairs 

GS 1040 

.Language  Specialist 

GS 1046 

.Language  Clerical 

GS1047 

.Interpreter 

GS  1060 

T807A 

.Photography 

GS1071 

T807M 

.Audio-Visual  Production 

GSI  081 

GS10S2 

T820 

.Writing  and  Editing 

GS  1083 

T820 

.Technical  Writing  and  Editing 

GS1084 

T807 

.Visual  Information 

GSI087 

T820 

.Editorial  Assistance 

c.siooy 

LI  300 

.Information  and  Arts  Student  Trainee 

GSI 101 

.General  Business  and  Industry 

C.S1 102 

.Contracting 

GSI  103 

.Industrial  Property  Management 

GSI  104 

.Property  Disposal 

GSI  105 

.Purchasing 

GSI  106 

.Procurement  Clerical  and  Assistance 

GSI  107 

.Property  Disposal  Clerical  and  Assistance 

GSI  150 

.Industrial  Specialist 

GSI  152 

.Production  Control 

GSI  170 

.Realty 

GSI  171 

.Appraising  and  Assessing 

GSI  173 

.Housing  Management 

GSI  192 

GSI  199 

.Business  and  Industry  Student  Trainee 

GSI  222 

.Patent  Attorney 

GSI  301 

.General  Physical  Science 

GSI  3 10 

.Physics 

GS131 1 

.Physical  Science  Technician 

GSI  3 13 

.Geophysics 

GSI  3 15 

.Hydrology' 

GSI  3 16 

.Hydrologic  Technician 

GSI  320 

.Chemistry 

GSI  321 

.Metallurgy 

OCCUPATIONAL  SKRIKS  FILL  (CONTI)) 


Occupational 

Series 

CIA 

Series  Title 

GS1340 

.Meteorology 

GS1341 

.Meteorological  Technician 

GS1350 

.Geology 

GSI.351 

GS1360 

.Oceanography 

GSI361 

.Navigational  Information 

GS1370 

C125 

.Cartography 

GSI37I 

Cl  25 

.Cartographic  Technician 

GS1372 

C125 

.Geodesy 

GSI373 

CI25 

.Land  Surveying 

GSI374 

C125 

.Geodetic  Technician 

GS1399 

.Physical  Science  Student  Trainee 

GS1410 

T820 

.Librarian 

GS141 1 

T820 

.Library  Technician 

GS1412 

T820 

.Technical  Information  Services 

GS1420 

T820 

.Archivist 

GS1515 

.Operations  Research 

GS1520 

.Mathematics 

GS1521 

.Mathematics  Technician 

GS1530 

.Statistician 

GS 1531 

.Statistical  Assistant 

GSI550 

.Computer  Science 

GS1599 

.Mathematics  and  Statistics  Student  Trainee 

GS  1601 

.General  Facilities  and  Equipment 

GS1640 

.Facility  Management 

GS1654 

.Printing  Management 

GS1670 

.Equipment  Management 

GS1701 

M012 

.General  Education  and  Training 

GS1702 

MO  12 

.Education  and  Training  Technician 

GS1710 

M012 

.Education  and  Vocational  Training 

GS1712 

M012 

.Training  Instruction 

GS1750 

MO  12 

.Instructional  Systems 

GSIS01 

.Gen’l  lnspcc..  Investigation,  and  Compliance 

GS1802 

.Compliance  Inspection  and  Support 

GS1S10 

.General  Investigating 

GS1.S1 1 

.Criminal  Investigating 

GS  1910 

.Quality  Assurance 

GS2001 

.General  Supply 

GS2003 

.Supply  Program  Management 

GS2005 

.Supply  Clerical  and  Technician 

GS20I0 

.Inventory  Management 
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OCCUPATIONAL  SKRIKS  FILL  (CON  TI)) 


Occupational 

Series 

Cl,v 

Series  Title 

GS2030 

.Dist  Facilities  and  Storage  Management 

GS2101 

.Transportation  Management 

GS2102 

.Transportation  Clerk  and  Assistant 

GS2I30 

.Traffic  Management 

GS2131 

.Freight  Rale 

GS2132 

.Travel 

GS2134 

.Shipment  Clerical  and  Assistance 

GS2I35 

.Transportation  Loss  and  Damage  Claims 

GS2144 

.Cargo  Scheduling 

GS2150 

.Transportation  Operations 

GS2151 

.Dispatching 

GS2161 

.Marine  Cargo 

GS2181 

.Aircraft  Operation 

GS7777 

GVV9322 

VVG2502 

.Telephone  Mechanic 

WG2601 

WG  26(14 

.Electronics  Mechanic 

VVG2606 

.Electronic  Industrial  Controls  Mechanic 

WG2608 

.Digital  Computer  Mechanic 

WG2610 

.Electronic  Integrated  Systems  Mechanic 

VVG280I 

VVG2805 

.Electrician 

VVG28IO 

.Electrician  (High  Voltage) 

WG2854 

.Electrical  Equipment  Repairing 

WG3052 

VVG3302 

WG3314 

.Instrument  Making 

WG3359 

.Instrument  Mechanic 

WG34I4 

.Machining 

VVG34I6 

.Toolmaking 

WG343I 

.Machine  Tool  Operating 

WG3501 

WG.3502 

.Laboring 

WG3506 

•Summer/Studenl  Aid 

VVG3507 

Cl  08 

.Deckhand  Sailor 

WG3508 

.Pipeline  Working 

WG351I 

.Laboratory  Working 

WG3515 

.Laboratory  Support  Working 

WG3566 

S709 

.Custodial  Working 

WG3603 

.Masonry 
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OCCUPATIONAL  SKR1FS  FILL  (CONTD) 


Occupational 

Series 

CIA 

Series  Title 

WG3605 

.Plastering 

WG3606 

Z992B 

.Roofing 

WG36I0 

.Insulating 

WG3AI 1 

.Glazing 

WG3A53 

.Asphalt  Working 

VVG3701 

WG3703 

.Welding 

WG3707 

.Mctalizing 

WG3S01 

WG3S02 

.Forging  Machine  Operating 

WG3806 

.Sheet  Metal  Mechanic 

WG3S07 

.Structural  Ornamental  Iron  Working 

WG3910 

T807 

.Motion  Picture  Production 

WG4I02 

Z992 

.?  Painting 

WG4104 

Z992 

.Sign  Painting 

WG4149 

VVG4202 

WG4204 

■Pipe  fitting 

VVG4206 

.Plumbing 

WG4401 

T806 

.Printing 

VVG4402 

T806 

.Bindery  Working 

WC.4405 

T806 

.Film  Assembly  Stripping 

WG4406 

T806 

.Letterpress  Operating 

WG44I4 

TS06 

.Offset  Photography 

WG4416 

T806 

.Platemaking 

WG4417 

T806 

.Offset  Press  Operation 

WG44I9 

.Silk  Screen  Making  and  Printing 

VVG4604 

.Wood  Working 

WG4A05 

.Wood  Crafting 

WG4007 

.Carpentry 

WG4639 

.Timber  Working 

WG4701 

.?  General  Maintenance  and  Operation 

WG4714 

.Model  Making 

WG4715 

.Exhibits  Making/Modeling 

VVG4716 

.Patternmaking 

WG4737 

.General  Equipment  Mechanic 

WG474I 

.General  Equipment  Mechanic 

WCJ4742 

.Utility  Systems  Repairing-Operating 

\VC>4745 

.Research  Laboratory  Mechanic 

WC54749 

.Maintenance  Mechanic 

WG4X0I 

.?  General  Equipment  Maintenance 
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OCCUPATIONAL  SERIES  III.E  (CONTI)) 


Occupational 

Series 

<;ia 

Series  Title 

WG5001 

.?  Plant  and  Animal  Work 

WG5003 

. Gardening 

WG5026 

S7I0 

.Pest  Control 

VVG52IO 

.Rigging 

WG5301 

.?  Industrial  Equipment  Maintenance 

WG5306 

.A  1C  Equipment  Mechanic 

WG  531)9 

.Heating  and  Boiler  Plant  Equip  Mechanic 

VVG5310 

.Kitchen  &  Bakery  Equip  Repair 

WG5318 

Cl  12 

.Lock  and  Dam  Repairing 

VVG5323 

008 

.Oiling  and  Greasing 

WG5324 

Cl  18 

.Powerhouse  Equipment  Repairing 

VVG5326 

Cl  15 

.Drawbridge  Repairing 

WG5334 

Cl  08 

.Marine  Machinery 

WG5352 

.Equipment  Repairing 

WG5378 

.Powered  Support  Equip  Mechanic 

VVG5401 

.?  Industrial  Equipment  Operation 

VVG5402 

S72ft 

.Boiler  Plant  Operation 

VVG5403 

.Incinerator  Operator 

WG  540ft 

S730 

.Utility  Systems  Operator 

WG5407 

018 

.Electric  Power  Controlling 

VVG5408 

S728 

.Sewage  Disposal  Plant  Operator 

WG5409 

S727 

.Water  Treatment  Plant  Operator 

WG5415 

.Air  Conditioning  Equip  Operator 

WG5423 

.Sandblasting 

WG  542ft 

Cl  12 

.Lock  and  Dam  Operating 

WG5479 

CIOS 

.Dredging  Equipment  Operation 

WG5ft8ft 

WG570I 

008 

■Fleel/Labor  Foreman 

WG5702 

.Amphibian  Truck  Operation 

WG5703 

S7lft 

.Motor  Vehicle  Operation 

WC.5704 

C'71ft 

.Fork  Lift  Operating 

WG5705 

C'71ft 

.Tractor  Operator 

WG57I6 

C7lft 

.Engineering  Equipment  Operating 

VVG5723 

008 

.Boat  Operating 

WG5724 

008 

.Ship  Operating 

VVG5725 

S716 

.Crane  Operating 

WG5729 

024 

.Drill  Rig  Operating 

WG5734 

.Wheel  Operator 

WG5738 

.Railroad  Maintenance  Vehicle  Operator 
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OCCUPATIONAL  SERIES  I  ILE  (CON  I’D) 

Occupational 

Series 

CIA 

Series  Title 

WC.57.S2 

.Dredge  Mates" 

WG57.S4 

.Towhoat  Operations • 

WG5786 

.Tender  Operations" 

WG5788 

.Deckhands" 

WG5801 

.?  Transporlation/Mobile  Equip  Maintenance 

WG5803 

.Heavy  Mobil  Equ  _  tent  Mechanic 

VVG5806 

.Mobile  Equipment  Servicing 

WG5823 

S717 

.Automotive  Mechanic 

WG5901 

.?  Ammo,  Explosives/Toxic  Materials  Work 

VVG65I7 

.Explosives  Test  Operator 

WG6901 

WG6904 

Fools  and  Parts  Attending 

WG6907 

.Warehouse  Working 

VVGW10 

Materials  Expediting 

WG61)  1 2 

.Material  Sorting  and  Classifving 

WG7002 

.Packing 

WG.7304 

.Laundry  Working 

WG7401 

WG7402 

.Baking 

WG7404 

.Cooking 

VVG7407 

.Mealcutting 

WG7408 

.Food  Service  Working 

WG760I 

WG83 1 8 
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»  ORGANIZATION  CODES  FILE 


ORGANIZATION  COOKS  FILE 

Organization 

Code 

CIA 

Organization 

#P6 

A1  Batin 

G 1 

Alaska 

Ml 

Albuquerque 

El 

Baltimore 

#Z 

BERH 

FI 

Buffalo 

YO 

CERC 

UO 

CERL 

K2 

Charlestown 

F2 

Chicago 

TO 

CRREL 

ZD 

Dept 

F3 

Detroit 

Z1 

EACA 

xo 

EASA 

10 

ESC 

VO 

ETL 

#J 

Far  East 

wo 

FESA 

M2 

Ft  Worth 

M3 

Galveston 

Z5 

HEC 

HI 

Huntington 

AO 

Huntsville 

K3 

Jacksonville 

#J 

Japan 

Cl 

Kansas  City 

M4 

Little  Rock 

BO 

LMVD 

LI 

Los  Angeles 

H2 

Louisville 

#P 

MED 

#P 

MED  Rear 

BI 

Memphis 

BI502 

cm 

BIMM503 

cm 

B1MM504 

cm 

ORGANIZATION  COOKS  FILK  (CON TO) 


Organization 

Code 


K5 

CO 

L4 

EO 

H3 

Ft) 

DO 

E3 

B2 

E4 

GO 

ZO 

C2 

HO 

E5 

H4 

JO 

G2 

#P 

F4 

L2 

KO 

L3 

K6 

G3 

#E 

LO 

F5 

B3 

MO 

M5 

NO 

B4 

B4R506 

B4RR505 

G4 

RO 

K7 

SO 

E1T 


Organization 


chid 

chib 


C119B 


Mobile 

MRD 

Mx  Program 

NAD 

Nashville 

NCD 

NED 

New  York 

New  Orleans 

Norfolk 

NPD 

OCE 

Omaha 

ORD 

Philadelphia 

Pitlsburg 

POD 

Portland 

Riyadh 

Rock  Island 

Sacramento 

SAD 

San  Francisco 

Savannah 

Seattle 

Sinai 

SPD 

St  Paul 

St  Louis 

SWD 

Tulsa 

USAEDE 

Vicksburg 


Walla  Walla 
WES 

Wilmington 

WRSC 

WASH  Aqueduct  nongfa 


A-5-2 


ORGANIZATION  COOKS  1  IKK  (CON  TI)) 


Organization 

Code 

<;ka 

Organization 

El  706 

C119A 

WASH  Aqueduct 

EIT07 

C119A 

WASH  Aqueduct 

V0V0F 

C125T 

ETL's  TAC 

SOOO 

M023 

WRSC  EXEC 

ZO 

MO  19 

.COE 

ZOQ 

MO  19 

.Civil  Works 

Z0Q06 

MOOS 

.Planning 

Z0Q09 

M005 

.Programs 

ZOQOS 

M002 

.Ops  &  Read 

1 Z0Q01 

MO 

.Policv 

•  Z0Q02 

MO 

.Mgmt  &  Staff  Spt 

ZOM 

M0I9 

.Eng  &  Constr 

Z0M05 

M027 

.Engr 

Z0M04 

M001 

.Constr 

*  ZOM  10 

MO 

.Mgmt  Spt 

ZOM  12 

M005 

.Prog  &  Exec 

Z0M09 

M020 

.Safety 

ZON 

M003 

.Real  Estate 

ZOB 

M004 

.DRM 

■  Z0B02 

MO 

.Budget 

*Z0B08 

MO 

.Org  &  Productivity 

Z0B01 

MO 

.F&A 

Z0B06 

MO 

.Manpower 

Z0B10 

MO 

.Bus  Practices 

ZOVV 

M024 

.Logistics 

ZOJ 

MO  13 

.Inlo  Mgmt 

ZOJ 0303 

T820B 

.Tech  Library' 

Z0J0301 

T807 

.Visual  Info 

ZOF 

MO  16 

.Personnel 

ZOE 

M009 

.Counsel 

*Z0V 

MO 

.Small  Bus 

ZOD 

MO  IS 

.Audit 

ZOH 

MO  15 

.History' 

ZOJ 

MO  17 

.Engr  IG 

ZOC 

MO  15 

■  Public  Affairs 

ZOS 

M025 

.Security 

zox 

MO  16 

■  EEO 

ZOP 

M010 

.Assist  for  Contract 

ZOR 

M006 

■  R&D 

7.01 

MO  1 9 

.ACE 

ORGANIZATION  COOKS  I  II.K  (CONTI)) 


Organization 

Code 

CIA 

Organization 

P2L02 

■ 

Emergency 

P2102 

Emergency 

KOMOE 

Emergency 

K2S 

Emergency 

K5V 

M026 

Emergency 

K6V 

M026 

Emergency 

L0M03 

M026 

Emergency 

L1M04 

M026 

Emergency 

L2R 

M026 

Emergency 

L3M06 

M026 

Emergency 

B3RR3 

M026 

Emergency 

B4RR3 

M026 

Emergency 

M0M06 

M026 

Emergency 

M2R21 

M026 

Emergency 

M4M07 

M026 

Emergency 

M51 

M026 

Emergency 

H1R2A 

M026 

Emergency 

H3R2A 

M026 

Emergency 

H4R2A 

M026 

Emergency 

FOAO 

M026 

Emergency 

FI  AS 

M025 

Emergency 

FI  AO 

M026 

Emergency 

F4A0 

M026 

Emergency 

GOQE 

M026 

Emergency 

G1MN 

M026 

Emergency 

G2RE 

M026 

Emergency 

G3RE 

M026 

Emergency 

D0R05 

M026 

Emergency 

E0Q09 

M026 

Emergency 

El  007 

M026 

Emergency 

E3R13 

M026 

Emergency 

E4M052 

M025 

Emergency 

E5R011 

M026 

Emergency 

C0M08 

M026 

Emergency 

C2M 

M026 

Emergency 

CIA 

M026 

Emergency 

Z0Q0803 

M026 

Emergency 
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1.  PURPOSE.  This  Annex  records  the  computer  program  that  the  Engineer  Studies  Center 
(ESC)  used  to  accomplish  the  Commercial  Activities  (CA)  Baseline  Study. 

2.  SCOPE.  The  XF7-CA  program  was  developed  by  ESC  with  a  limited  outlook.  Though 
not  insignificant  in  terms  of  effort  to  create,  ESC  did  not  envision  the  program's  survival  beyond 
completion  of  the  Baseline  Study.  This  Annex  is  therefore  intended  to  document  the  procedures 
used  to  generate  the  alternative  inventory,  not  to  serve  as  information  for  future  users. 

3.  XF7-CA  PROGRAM  ARCHITECTURE. 

a.  The  XF7-CA  program  was  written  in  SIMULA,  a  general  purpose  computer 
language  available  on  a  wide  range  of  computers.  SIMULA  encourages  a  style  referred  to  as 
object  oriented  programming  (OOP).  This  style  results  in  programs  that  depart  from  the  form 
that  FORTRAN  or  COBOL  programmers  might  expect.  OOP,  when  exploited,  promotes 
problem  decomposition  and  therefore  better  program  structuring.  It  is  particularly  useful  when 
developing  prototype  applications  where  there  may  be  some  uncertainty  about  the  form  and 
extent  of  the  final  product.  That  was  clearly  the  situation  confronting  ESC  as  it  attempted  to 
construct  a  program  that  would  convert  the  organizational  and  functional  information  on  the  XF7 
into  a  framework  that  could  serve  as  a  CA  inventory. 

b.  The  program  is  fairly  straight  forward.  First  the  General  Functional  Area,  Corps 
Stratification,  Occupational  Series,  First  Level  Organization,  and  Organizational  Files  are  read 
and  put  into  a  tabular  form  to  facilitate  access.1  The  XF7  file  is  then  processed  using  th  *  logic 
described  in  the  main  paper  and  the  data  element  table  information  in  Annex  A.  (The  program 
will  identify  a  range  of  error  situations  and  report  those  conditions.)  The  last  step  is  the 
production  of  various  reports,  whose  extent  and  type  are  defined  by  user  input  when  first  invoking 
the  program. 

4.  PROGRAM  LISTING.  Figure  B-l  on  the  following  pages  depicts  the  Program  Listing. 


7 The  I <>r m  adopted  uses  balanced  binary  trees,  using  the  principal  data  element  as  the  key. 


Xslength  80 
begin 

external  class  avltree; 
avltree  begin 

ref(table)  gstable,  cstable,  flotable; 
ref(fnctns)  gfatable;  ref(gfa)  testfnc , ot ry ; 

ref (outfile) logf ,sumfyl ; 

ref(divdis)  foatable;  ref(foaorg)  corps , dr , oorg , torg ; 

text  gfafyi,  foafyl,  xf7fyl,  seriesfyl,  flofyl,  csfyl; 

ref(infile)  fgfa,  ffoa,  fxf7,  fgs,  fflo,  fcs; 

text  buf , foa, curorg , sf name ; 

text  orgcode , funcdes , occseries , grade , orgname , time basis ; 
text  payplan, worksched , funclass , amscode , suposn, posocc , carprog ; 
text  cmdcode , f aorg , corps t rat , paybase , f te , budelem, post itle ; 
text  foaportion; 

boolean  printab, rollupgfas , reportf oas , forconmap ; 
integer  records , orgacc, orgrej ; 

nteger  xsched  ,  xpay , xfund ,  xcmd ,  xf  nc  ,  xorg ,  xposn; 
ref(eiement)  ftry; 


!  ==«*===========»*==«=  TABLE  t  ELEMENT  =====**»*=«*========== 

root  class  table; 
begin 

ref (element)  procedure  find(t);text  t; 
begin 

ref (element)s; integer  1; 
s  first; 
if  s  ==  none  then 
begin 

find  none; 

out text (title ) ;outtext(H  empty! ") ;outimage; 

end 

else 

while  s  =/=  none  do 

if  t  <  s.keycode  then  s  s.ll 
else 

if  t  =  s.keycode  then 

begin  find  s;s  : -  none;  end 
else 

s  : -  s . rl ; 

end; 

end  *  table  * ; 


node  class  element (keycode , title , fncarea) ; 
value  keycode , title ;text  keycode , t it ie ; 
ref(gfa)  fncarea; 
begin 

integer  procedure  test (s) ; ref (element )  s; 

test  :=  if  keycode  <  s.keycode  then  -1  else 

if  keycode  >  s.keycode  then  1  else  0; 

procedure  dump; 
begin 

logf .outtextC  -  -  -  "); 

logf .out text (keycode) ; logf . setpos ( 20) ; 

logf .out text ( t itle ) ; logf . setpos (60) ; 

logf .outtext (fncarea. key) ; 

logf . out  image ; 

end  --dump--; 

end  ^element*; 


Figure  B-l. 
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!  =-====*=-=-======  FNCTNS  k  GFA  ===«===-==========; 

root  class  fnctns; 
begin 

ref(gfa)  procedure  find(t);text  t; 
begin 

ref (gfa)s ; integer  i: 
s  : -  first; 
if  s  ==  none  then 
begin 

find  :-  none; 

outtext (title) ; outtext ("  empty!") ; out  image; 

end 

eLse 

while  s  =/=  none  do 

if  t  <  s.key  then  s  s.ll 
else 

if  t  =  s.key  then 

begin  find  s;s  none;  end 
else 

s  s.rl; 

end ; 

procedure  trace(org);  ref(foaorg)  org; 
begin 

if  first  =/=  none  then 

first  qua  gfa . thread(org) 
else 

begin  outtext ("  =  =  =  GFA  tree  is  empty !") ; out image; end; 
end  -  retain  - ; 
end  *fnctns*; 

node  class  gf a (key , supgf a , Lable , forcode , cat ) ; 

value  key , supgfa , lable ; text  key , supgf a, lable ; 

integer  forcode, cat; 

begin 

integer  milnum, civnum, mil tot, civtot ; ref (gfa)altgfa; 

integer  procedure  test(s) ; ref (gfa)  s; 
test  :=*  if  key  <  s.key  then  -1  else 

if  key  >  s.key  then  1  else  0; 

procedure  dump; 
begin 

inspect  logf  do 
begin 

outtext (key) ;setpos(6) ; out int (cat , 4 ) ; 

setpos(12) ;outtext ("  ["); outtext ( supgf a) ; outtext (" ]  ("); 

out int( forcode, 2) ;outchar( * ) * ) ; 

se tpos ( 24 ) ; outtext (lable) ; 

out image ; 

end; 

end  --dump--; 

procedure  thread(org);  ref(foaorg)  org; 
begin 

if  11  =/=  none  «_hen  11  qua  gf  a .  thread(  org)  ; 
if  org. code  =  "CORPS"  then 

org.tab(this  gfa, civtot ,miltot ) 

else 

begin 

miltot  :=  miltot  +  milnum;  civtot  :=  civtot  +  civnum; 
org.tab(this  gf a, civnum, milnum) ; 
civnum  : =  milnum  : =  0; 
end; 

if  rl  */=  none  then  rl  qua  gfa . thread(org) ; 
end  -  thread  - ; 

procedure  prime(gtab);  ref (fnctns )gtab; 
begin 

if  11  none  then  11  qua  gfa.prime(gtab) ; 
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if  supgfa  ne  notext  then 
begin 

altgfa  gtab . f ind(supgfa) ; 

if  altgfa  ==  none  then 
begin 

outtext ("  >->->->  gfa  substitution  failure  for 

outtext (key ); outtext ( "  ["); 
outtext (supgfa) ;outchar( * J  * ) ; 
out  image ; 
end; 
end ; 

if  rl  =/=  none  then  rl  qua  gfa.prime(gtab) ; 
end  -  prime 


procedure  plus (funding , supr) ;  text  funding , supr ; 
begin 

if  altgfa  ==  none  then 
begin 

if  funding  =  "1"  then  railnum  : =  milnum  +  1 
else  civnum  : =  civnura  +  1; 

end 

else 

if  val idmngr (supr)  then 

altgfa . plus (funding , ) 
else 


if  funding  = 
end  -  plus 


"1"  then  milnum 
else  civnum 


milnum  + 
civnum  + 


1 

1; 


procedure  dplus(nciv,nmil) ;  integer  nciv.nmil; 
begin 

civnum  : =  civnum  +  nciv;  milnum  :=  milnum  +  nmil; 
end  -  dplus 
end  *gf a* ; 


DIVDIS  k  FOAORG 


root  class  divdis; 
begin 

ref(foaorg)  procedure  find(t);text  t; 
begin 

ref (foaorg)s; integer  i; 
s  first; 
if  s  ==  none  then 
begin 

f ind  : -  none ; 

outtext (title ); outtext ("  empty! ") ; out  image; 

end 

else 

vhile  s  =/-  none  do 

if  t  <  s.code  then  s  s.ll 
else 

if  t  =  s.code  then 

begin  find  s;s  none;  end 
else 

s  : -  s . rl ; 

end; 
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procedure  results ( sgfa) ;  boolean  sgfa; 
begin 

ref(foaorg)  foa; 
foa  s-  first; 
if  foa  ==  none  then 
begin 

outtext ( "There  are  no  activities  found  in  "); 

outtext (foa. title) ; out text ("  [") ; out text ( foa . code) ; 

outchar (']’); out image ; 

end 

else 

foa.report(sgfa) ; 
end  -  results 
end  *divdis*; 

link  class  activity (giaptr.civper .milper) ; 

ref (gfa)gfaptr ;  integer  civper.mil  per ;  ; 

node  class  foaorg(code , title , orgfunc) ; 
value  code , title ; text  code, title; 
ref(gfa)  orgfunc; 
begin 

ref (head) prof ile .chart ; 
integer  array  info( 1 : 2 , 0 : 5) ; 

integer  procedure  test ( s ); ref (foaorg)  s; 
test  if  code  <  s.code  then  -1  else 

if  code  >  s.code  then  1  else  0; 


procedure  dump; 

begin  ref (foaorg)  suborg; 
logf .outtext(code) ; logf . setpos( 12) ; 
logf . outtext (title) ; 
logf . out image ; 
if  not  chart. empty  then 
begin 

suborg  chart. first; 
while  suborg  =/=  none  do 
begin 

logf . outtext ( "  "); 

logf . outtext ( suborg . code) ; logf . setpos (15) ; 
logf .out text (suborg .orgfunc. key) ; logf . setpos (25) 
logf . outtext ( suborg .title); logf . out  image ; 
suborg  suborg. sue; 
end  ; 
end ; 

end  - -du,  ip- -  ; 

procedure  tab(area, civ.mil) ; 

ref(gfa)  area;  Integer  civ.mil; 

new  activity(area , civ.mil ) . into(prof ile) ; 

ref(gfa)  procedure  specfunc ( ocode ) ;  text  ocode; 
begin 

ref(foaorg)  fo; 
integer  mask, full; 
specfunc  none; 

If  not  chart. empty  then 
begin 

fo  chart. first; 
while  fo  =/=  none  do 
begin 

mask  :=  fo . code . length; 
if  f o . code  *  ocode . sub( 1 .mask)  then 
begin 

if  mask  >  full  then 

begin  full:=mask:  specfunc fo . orgfunc ;  end; 
end ; 

fo  fo.suc; 
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end: 
end : 

end  -  specfunc  - ; 


procedure  makediv(dtab, gtab) ;  ref (divdis)dtab;  ref (fnctns ) gtab: 
begin  boolean  notvoid; 

integer  ix;  text  id;  ref (foaorg)dcompo;  ref (activity)dactv; 


ix  :=  1; 


while  lx  <  code. length  do 
begin 

id  code . sub( lx, 2) ; 

dcompo  : -  dtab . f ind( id) ; 
if  dcompo  -*=  none  then 
begin 

outtext(H  >>>>  division  rollup  vacancy  "): 
outtext ( id) ; 
out image ; 

end  x*'' 

else  /* 

begin 

dactv  dcompo . prof ile . first ; 

if  dactv  '==  none  then 
begin 

outtext ("  >»>  division  rollup  profile  empty  for 

outtext ( id) ; 

out image ; 

end 

else 

begin 

notvoid  : *  true: 
while  dactv  =/=  none  do 
begin 


dactv. gfaptr,dplus(dactv.civper, dactv. mil per) ; 
dactv  dactv. sue; 
end; 
end; 
end; 

ix  : —  ix  +  2  ; 
end; 

if  notvoid  then 
begin 

gtab. trace(this  foaorg) ; 

report(true) ; 

end 

else 

begin 

outtext("  division  rollup  failure  "); 
out  image ; 
end ; 

end  --  makediv 


M) 


procedure  forcon; 
begin 

integer  array  fmat  ( 1 : 2 ,0 : 16 , 0 :  4) ,  cats  (1 :  3)  ; 
ref (actlvity)ax;  text  fortifies; 

Integer  r ,c , lc , lfn, fc; 

text  procedure  ltem(id);  Integer  id; 

item  fortifies . sub(  l+3*( id-1) , 3) ; 

procedure  orow(ft , r) ; integer  ft,r; 
begin 

cats ( 1 )  fmat(ft,r,0)+fmat(ft.r,l); 

cats (2)  fmat (ft , r , 2)+fmat (f t , r , 3) +f mat (ft , r , 4 ) ; 

cats(3)  cats(l)  +  cats(2); 
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out int (cats (3) , 10) ; 

out int ( fraat (  f  t ,  r ,  0 ) ,8) ;outint(fmat (ft ,r, 1) ,8) ; 
out lnt (cats ( 1 ) ,8) ; 

out Int ( fraat ( f t ,  r ,  2)  ,  8)  ; out int ( f mat ( f  t ,  r ,  3  )  ,  8 ) ; 
out  int  (fmat (ft ,  r,4)  ,8)  ; out int  (cats  (2)  >8) ; 
end ; 

fortitLes 

copy ( " ADMPLNENGCNTDRDRVTFC  GRFPWRNRMEM  NAVRE  RSHSPTTEC") • 
ax  prof ile . first; 
if  ax  «=  none  then 
begin 

out text (  no  activities  for  forcon  mapping"); 

out image; 

end 

else 

beg  in 

while  ax  =/=  none  do 
begin 

Ifn  :=  ax. gfaptr . forcode ; 
ic  ax . gfaptr . cat ; 

fmat ( 1 , ifn, ic)  :  =  fmat ( 1 , ifn, ic)  +  ax.civper; 
fmat (2,  ifn,  ic)  :=*  fmat (2 ,  ifn,  ic)  +  ax.milper; 
ax  ax. sue 

end ; 

out  image ; 

outtext( "FORCON  Mapping  for  "); outtext ( title ) ; 
out image; 
for  fc  :=  1,2  do 
begin 

if  fc  =  1  then 

outtext ( "Civil  Funded  Positions") 
else  outtext ("Military  Funded  Positions")! 
out image ; out  image i 

outtext ("  ITEM  TOTAL  STDALN  EXCLU  TOTGF  STUDY") 

outtext("  XCEP  XEMP  TOTCA" ) • 
out  image iOUTIMAGEi 
for  r  1,2, 3, A  do 
begin 

out  text ( item( r )); out text ( "  "): orov ( fc , r ); out  image ; 

end  i 

for  r  5  step  1  until  12  do 
for  c  :=  0  step  1  until  4  do 

fmat(fc,0,c)  :=  fmat(fc,0,c)  +  fmat (f c, r,c) ; 
outtext("OPS  ”) iorow(fc,0) joutimage; 
for  r  :=<  5  step  1  until  12  do 
begin 

outtext ( "  " ) j  outtext ( item( r) ) ; orow(fc, r) ; out image ; 

ends 

outtext  ( item(13) ) ;  outtext  ("  " )  :orow(fc,  13)  ;  out  image  s 

for  c  :=  0  step  1  until  A  do 

fmat (f c , 0 , c)  :=  fmat (fc , 1 A , c)  +  fmat (fc , 15, c) ; 
outtext ( "RD  " ) ; orow( f c , 0) ; out  image ; 

outtext("  " ) j outtext ( ltem( 14)) ;orov(fc, 14) joutimage: 
outtext ("  ") ; outtext (item( 15) ) ;orow(fc,15) joutimage; 

outtext (ltem( 16) ) ; outtext ("  " ) ; orow(fo , 16) joutimage; 

fmat (fc, 0,0) :=fmat(fc,0,l) : =fmat ( fc , 0, 2) := 
fmat ( f c , 0 , 3 ) j  =fmat (f c , 0 , 4 ) :=0; 
for  r  :=  1  step  1  until  16  do 

for  c  :«  0  step  1  until  4  do 

fmat (fc , 0 ,c)  fmat( fc , 0 ,c)  +  fmat (f c , r ,c) ; 
outtext("  TOTAL") :orow(fc,0) joutimage; 
out Image  j 
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end; 

end; 

end  -  forcon  - ; 

procedure  report (sumgf a) ;  boolean  sumgfa; 
begin 

integer  icat , f Id, fw, i, j , osum; 

Integer  array  sum( 1 : 2 , 0 : 4 ) ; 

ref (activity)  ax;  ref (gf a) curgf a ; 

f  w  :  *»  8  ; 

if  11  =/*  none  then  11  qua  foaorg . report (sumgf a) ; 
ax  prof ile . first ; 
if  ax  =J»  none  then 
begin 

outtext (”  -  Ho  activity  for  ["); 

out text (code) ; out text ( "  ]  ") ; out text (title) ; 

out  image ; 

end 

else 

begin 

out  image ; out t  ex t ( ”  *  *  *  *  ") ;outtext( title ); out image ; out image ; 


outtext ("  GENERAL  ”); 

outtextC  CIVIL  FUNDED  ACTIVITIES  "); 

outtext ( ”  MILITARY  FUNDED  ACTIVITIES  ") ; 

out  image ; 

outtext ( ”  FUNCTIONAL  ”); 

outtext (" - Government —  - Commercial - ” )  ; 

outtext  (  "  j - Government--  J  ) - Commercial - J  " ) ; 

outtext ("  TOTAL”); 

out image ; 

outtext ("  AREAS  "); 

outtext ("  Stdaln  Exclu  Study  Excpt  Exmpt”); 

outtext (”  Stdaln  Exclu  Study  Excpt  Exmpt”); 


out  image ; 

while  ax  =/=  none  do 
if  sumgfa  then 
begin 

icat  :=  ax. gfaptr . cat ; 
if  curgf a  ==  none  then 
begin 

curgf a  :-  ax. gfaptr; 
sum(l,icat)  :=  ax.civper; 
sum( 2 , icat )  :**  ax.milper; 
end 
else 

if  curgfa .key . sub(l , A)  =  ax. gfaptr. key. sub(l ,4)  then 
begin 

sum(l,icat)  :=  sum(l,icat)  +  ax.civper; 

sum(2,icat)  sum(2,icat)  +  ax.milper; 

end 

else 

begin 

osum  0; 

outtext (curgfa. key) ;setpos(10) ; 
outtext (curgfa . lable) ; setpos(30) ; 
for  1  ;«  1,2  do  for  j  :»  0  step  1  until  A  do 
begin 

outint (sum( i, j) ,fw) ;  osum  :*  osum  +  sum(i,j); 
info(l,J)  :=*  info(i,j)  +  sum(l,j); 
sum( 1, j )  :«  0; 
end; 

outint (osum, fw) ; out image; 
sum(l,icat)  : "  ax.civper; 
sum(2,lcat)  :*  ax.milper; 
curgfa  ax. gfaptr; 
end; 
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ax  : -  ax . sue ; 

end 

else 

begin 

outtext(ax.gfaptr .key) ; setpos(lO) ; 
out text (ax .gfaptr.lable); 
icat  :=  ax . gfaptr . cat ; 
setpos (31  +  fw  *  icat  ); 

out int (ax. civper , fw) ; setpos (pos  +  (4  *  fw)  ); 
outint(ax.milper,fw) ; 

info(l, Icat) :»lnfo(l , Icat)  +  ax. civper; 
info(2, icat) :=info(2, icat)  +  ax.milper: 
out  images 
ax  : -  ax. sue; 
end; 

out  image ; outtext( "summary  totals:  "); 

outtext( title) soutimage; 
for  i  :=  1,2  do 

for  j  0  step  1  until  4  do 

info(i,5)  :=  info(i,5)  +  info(i,j); 
out  image ; 

outtext ( "  CATEGORY  CIVIL  MILITARY 

OUTIMAGE ; 

outtext  ( " -  -  - " ) 

out  image ; 

outtext ( "Gov* t  Functions  "); 

out int ( info( 1 , 0) , 7) ; out int ( info (2, 0) , 14 ) ; out image ; 
outtext("  Excluded  "); 

out int ( info( 1 , 1 ) , 7) ; out int ( info(2, 1) , 14) ; out image ; 
outtext ( "Commercial  Activ  "); 

out int ( info( 1 , 2) , 7) ; out int ( info (2, 2) ,14) ; out image ; 
outtext ("  Exempted  "); 

out int ( info (1,3) ,7) ; out int ( info ( 2 , 3 ) , 1 4 ) ; out image ; 
outtext("  Excepted  "); 

out int ( inf o(l, 4) , 7) ; out int (info (2, 4) ,14) ; out image; 
outtext ( "Totals  "); 

out int ( info ( 1 , 5 ) , 7 ) ; 

outf ix( 100* info ( 1 , 5) / ( info(l , 5) +  info (2 , 5) ) ,2,7) ; out char ( *  1  * ) ; 
outint (info(2,5) ,6) ; 

outf ix( 100* info (2, 5) / ( info(l ,5)+info(2,5) ) ,2, 7) ;outchar( *  X* ) ; 
outint ( (info(l ,5)+info(2,5) ) ,10) ; 
out  image ; 

if  forconmap  then  forcon; 
end ; 

if  rl  =/=  none  then  rl  qua  foaorg . report ( sumgfa) ; 
end  -  report 

procedure  forplay: 
begin 

if  11  -/”  none  then  11  qua  foaorg . forplay ; 
forcon ; 

if  rl  =/=  none  then  rl  qua  foaorg . forplay ; 
end  --  forplay 

procedure  retain; 

begin  integer  i,j; 
sumfyl . outtext (title . sub(l ,5) ) : 
for  1  :■  1,2  do  for  j  0,1, 2, 3, 4, 5  do 

sumfyl . out int ( info( i , j) ,8) ; 
sumfyl . out  image ; 
end  _  retain  -; 

profile  : -  new  head;  chart  new  heads 
end  *foaorg*; 
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! 


PROCEDURES 


boolean  procedure  val Idcmd(c) ;  text  c; 
validcmd  :=■  (c  -  "CE"); 

boolean  procedure  valldpay(p):  text  p; 

validpay  :=  If  (  (p  =  "PA")  or  (p  =  "PH")  )  then  true  else  false; 

boolean  procedure  validfunc(f ) ;  text  f; 

validfunc  ;=  If  (f  =  "1")  or  !  mH  $; 

(f  =  "2")  then  true  !  civ  $; 

else  false; 

boolean  procedure  validtime( t) ;  text  t; 

validtime  :=  if  f indstr( t , "FGH" )  >  0  then  true  else  false; 

integer  procedure  f indstr (f , t ) ;  text  f,t; 
begin 

integer  s,e,i; 
s  f. length; 

e  : *  t. length  -  s  +  1; 
i  1; 

while  1  <=  e  do 

if  f  *  t.sub(i,s)  then 

begin  findstr  :=  i;  i  ;=  e  +  1;  end 
else 

i  :«  i  +  1; 

end; 

boolean  procedure  yesno(query) ; text  query; 
begin  character  answer; 
outtext (query) ;outchar( *  ?* ) ;outimage; 
inimage ; 

answer  :=  inchar; 

yesno  if  (answer  =  * Y’ )  or  (answer  =  *y*)  then 
true  else  false; 
end  +  yesno  +; 


boolean  procedure  val idmngr ( t ) ;  text  t; 

validmngr  :=  if  f Indstr (t , "34" )  >  0  then  true  else  false; 


j  *****************  main  program  **************************; 

rollupgfas  :*  true; 
logf  sysout; 

outtext ( "Commercial  Activities  Analysis  Program."); 
out image ; out image ; 

printab  :»  yesno("Do  you  want  tables  printed"); 
reportfoas  : “  yesno ("Do  you  want  separate  foas  printed"); 
forconmap  :■  yesno("Do  you  want  FORCON  mappings  for  FOAs"); 
buf  blanks(150); 

outtext ( "Enter  the  name  of  the  GFA  file  to  be  processed--") ;  !  GFA; 

out  image ; inlmage jgfafyl  copy( intext (80) . strip) ; 

gfatable  new  fnctns ( "FUNCTION  AREA  TABLE" , "  "); 

fgfa  new  inf ile(gfafyl) ; 

fgfa . open(buf ) ; 

fgfa. inimage  t 

while  not  fgfa.endflle  do 
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begin 

if  buf . sub (8, 1)  ne  "  "  then 
new  gfa(buf .sub(l,5) .strip, 
buf .sub(ll ,5) .strip , 
buf . sub( 21 , 30) .strip, 
buf . sub ( 1 7 , 2 ) . ge t int , 

buf .sub(8,l) .getint) . rank(gfatable) ; 
fgfa. Inimage : 
end; 

gf  stable,  first  qua  gf a . prime (gfatable ) ; 
fgfa . close ; 

if  pr intab  then  gfatable . traverse ; 

outtext^ "Enter  the  name  of  the  occupational"); 

outtext ("  series  file  to  be  processed--"); 
out  image ; inimage ; seriesfyl  :*■  copy(  intext  (80)  .  strip) ; 

gstable  new  table ( "Occup-Series  TABLE",  "); 
fgs  new  inf lie (seriesfyl) ; 
f gs . open(buf ) ; 
fgs . inimage ; 

while  not  fgs.endfile  do 
begin 

testfnc  gfatable . find(buf. sub(9, 5) . strip) ; 
if  testfnc  =/-  none  then 

new  element (buf . sub (3 , A) , 

buf . sub ( 1 6 , 30) .strip, 
testfnc) . rahk(gstable) ; 

fgs . inimage ; 
end ; 

fgs . close ; 

if  printab  then  gstable . traverse ; 

outtext ( "Enter  the  name  of  the  CORPSTRAT"); 

outtext ( "  file  to  be  processed--" ) : 
out  image ; inimage ; csfyl  copy ( int ext (80) . strip) ; 


cs table  new  table("Corps  Strat  TABLE","  "); 
fes  new  inf lie (csfyl ) ; 
fes .open(buf ) ; 
fes . inimage; 

while  not  fcs.endfile  do 
begin 

testfnc  : -  gfatable . f ind(buf . sub( A , 5) . strip) ; 
if  testfnc  «  none  then 
begin 

outtext ( *  .  .  illegal  GFA  detected  in 

outtext (buf . sub( 1 , AO) ) ;out image ; 
end 
else 

new  element (buf . sub(l ,2) , 

buf .sub (11, 30) .strip, 
testfnc) . rank(cstable) ; 

fes . inimage ; 
end ; 

fes . close ; 

if  printab  then  cstable . traverse ; 

outtext ( "Enter  the  name  of  the  first  level  org"); 

outtext("  file  to  be  processed--" ) ; 
out  image ; inimage ; flofyl  :-  copy ( intext (80 ). strip) ; 

f lot able  new  table("First  Level  Org  TABLE","  "); 

fflo  new  inf ile(f lofyl ) ; 

ff lo . open(buf ) ; 

ff lo . Inimage ; 

while  not  fflo.endfile  do 


!  Occ-series; 


!  Corsp  strat; 


!  First  lev; 
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begin 

testfnc  gf atable . f ind(buf . sub( 4 , 5) . str Lp) ; 

if  cestfnc  “■>  none  then 
begin 

outtext("  .  .  illegal  GFA  detected  in  ") ; 

out text (buf . sub(l , 40) ) ; out image; 

end 

else 

new  element (buf . sub(l , 1) , 

buf . sub( 11 , 30 ) .strip, 
testfnc) . rank(f lotable) ; 

fflo. inimage; 
end ; 

fflo .close ; 

if  printab  then  f lotable . traverse ; 

outtext ( "Enter  the  name  of  the  FOA  titles  file — "); 
outimage ; inimage ; foafyl  copy ( intext (80) . strip) ; 

foatable  new  divdis("FOA  TABLE","  "); 
ffoa  new  inf ile(foafyl) ; 
ffoa.open(buf ) ; 
ffoa. inimage; 
while  not  ffoa.endfile  do 
begin 

if  buf . sub(l ,8) . strip . length  =  2  then 
new  foaorg(buf . sub(l ,2) , 

buf . sub(21 , 30 ) .strip, 

gf at able . find (buf . sub ( 11 ,5) .strip)) 

. rank( foatable ) 

else 

begin 

testfnc  gf atable . find (buf . sub( 11 , 5) . strip) ; 
if  testfnc  ==  none  then 
begin 

outtext ( "  .  .  missing/ illegal  GFA  detected  in  "); 

outtext(buf . sub (1,40) ) ; out  image; 

end 

else 

begin 

torg  foatable. find(buf.sub(l, 2)) ; 
if  torg  =»  none  then 
begin 

outtext("  foa  error  -  parent  undefined  for  "); 

outtext(buf . sub(l , 40) ) ;  outimage ; 

end 

else 

new  foaorg(buf .sub(l,8) .strip, 
buf .sub(21, 30) .strip, 
testfnc) . into (torg .chart) ; 

end ; 
end; 

ffoa . inimage ; 
end ; 

!  new  foaorg( "CORPS" , "USACE  ROLLUP" , none) . rank (foatable ) ; 
ffoa. close; 

if  printab  then  foatable . traverse ; 


outtext ( "Enter  the  name  of  the  XF7  file  to  be  processed--"); 

outimage; Inimage ; xf 7f yl  copy ( intext ( 80 ). str lp) : 

sfname  copy (xf 7f yl ) ;  sfname . sub( 1 , 2)  :»  "xx"; 

fxf7  new  inf lle(xf 7fyl ) ;  sumfyl  new  outfile( sfname) ; 

fxf 7 .open (blanks (120) ) ;  sumfyl . open (blanks ( 132) ) ; 


orgcode  : -  fxf 7 . image . sub( 1 , 8) ; 
foaportion  f xf 7 . image . sub( 1 , 2) ; 

payplan  : -  fxf 7 . image . sub (9, 2) ; 
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grade 

funcdes  : - 
orgname 
post it le 
occser ies : - 
funclass  : - 
amscode  : - 
suposn  : - 
posocc 
t imebasls : - 
vorksched : - 
carprog  : - 
cmdcode  : - 
faorg  : - 

corpstrat : - 
paybase  : - 
f  te  :  - 

budelem 


fxf 7 . image . sub (11, 2) ; 
fxf7 . image. sub (13,1) ; 
fxf 7 . image. sub(14,38) ; 
fxf 7 . image . sub(52 , 28) ; 
fxf 7 . image . sub (80,4); 
fxf 7 . image . sub(84 ,2) ; 
fxf 7 . image , sub (86, 12) ; 
fxf 7 . image . sub ( 98 , 1 ) ; 
fxf 7 . image . sub (99, 1) ; 
fxf 7. image. sub (100,1) ; 
fxf7 . image . sub(100, 1) • 
fxf 7 . image .sub (101,2); 
fxf 7 . image . sub ( 103 , 2) ; 
fxf 7 . image . sub (105, 2) ; 
fxf 7 . image . sub (107, 2) ; 
fxf 7 . image . sub(109,2) ; 
fxf 7 . image . sub(lll , 1 ) ; 
fxf 7 , image .sub (112, 6); 


fxf 7 . inimage ; 
while  not  fxf7.endfile  do 
begin 

records  :=*  records  +  1; 
if  foaportion  ne  curorg  then 
begin 

if  oorg  =/=  none  then  gfatable . trace (oorg ) ; 
curorg  copy(foaportion) ; 
oorg  f oatable . f ind(curorg) ; 
if  oorg  =/=  none  then 
begin 

orgacc  :=  orgac c  +  1; 

outtext ( "  —  processing  [ " ) jouttext (curorg) ; 
outtext ( " ]  -  ") ;outtext(oorg. title) ;outimage; 
end 
else 

orgrej  :=  orgrej  +  1; 
end ; 

if  posocc  ne  "  "  then 
begin 

if  oorg  =/=  none  then 
begin 

if  va l idcmd( cmdcode )  then 
begin 

if  val idfunc( funcdes )  then 
begin 

if  validpay (paybase)  then 
begin 

if  val idt ime (worksched)  then 
begin 

ftry  gstable . f ind ( occser ies ) ; 

if  ftry  =/=  none  then 
begin 

ftry. fncarea. plus (funcdes, suposn) ; 

end 

else 

begin 

otry  oorg . specfunc (orgcode ) ; 

if  otry  «/*  none  then 
begin 

otry .plus (funcdes , suposn) : 
end 

else 

begin 

ftry  eatable . find(corpstrat ) ; 
if  ftry  */■  none  then 
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ftry. fncarea. plus (funcdes , suposn) ; 

end 

else 

begin 

ftry  f lotable . f ind(orgcode . sub( 3 , 1 ) ) ; 

if  ftry  =*/=  none  then 
begin 

ftry . fncarea . plus (funcdes , suposn) ; 

end 

else 

begin 

xfnc  xfnc  +  1; 

outtext("  ...  Function  assignment  fault"); 
out text ( f xf 7 . image ) ; out image : 
end  -  1st  lev  - ; 
end  -  cs  function 
end  -  series  -  ; 

end  -  org  function 
end  else  xsched  :=xsched  +1; 
end  else  xpay : =xpay+l ; ; 
end  else  xf und :  =»xf und+1 ; 
end  else  xcmd : -xcmd+1 ; 
end  else  xorg : =xorg+l ; 
end  else  xposn  xposn  +  1; 

fxf7 . inimage; 
end ; 

if  oorg  =/=  none  then  gfatable . trace (oorg) ; 

corps  new  foaorg ( "CORPS" , "USACE  ROLLUP" , none ) ; 
gfatable . trace (corps ) ; 

corps . report ( rollupgfas) ;  corps . retain; 
fxf7 .close; 

if  reportfoas  then  foatable . results ( rollupgfas ) 

else  if  forconmap  then  foatable . first  qua  foaorg . f orplay ; 

dr  new  foaorg ( "B0B1B9B2B3B4" , 

"LMVD  -  LOWER  MISSISSIPPI  VALLEY  Division" , none) ; 
dr .makediv(foatable , gfatable) ;  dr. retain; 
dr  new  foaorg ( "C0C1C2" , "MRD  -  MISSOURI  RIVER  Division" , none) ; 

dr .makediv(foatable , gfatable) ;  dr. retain; 

!  commented  out  for  tests; 

dr  new  foaorg ( "E0E1E3E4E5E7" , "NAD  -  NORTH  ATLANTIC  Division" , none) ; 

dr  .cnakediv( foatable  ,  gfatable)  ;  dr .  retain; 
dr  new  foaorg ( "DO" , "NED  -  NEW  ENGLAND  Division" , none) ; 

dr .makediv( foatable .gfatable) ;  dr. retain; 
dr  new  foaorg( "F0F1F2F3FAF5" , "NCD  -  NORTH  CENTRAL  Division" .none) ; 

dr .makediv(foatable , gfatable) ;  dr. retain; 
dr  new  foaorg ( "G0G1G2G3G4" , "NPD  -  NORTH  PACIFIC  Divis ion" .none ) . 

dr .makediv(foatable , gfatable) ;  dr. retain; 
dr  new  foaorg( "H0H1H2H3H4" , "ORD  -  OHIO  RIVER  Division" .none) ; 

dr. maked iv( foatable, gfatable) ;  dr. retain; 
dr  new  foaorg ( "K0K2K3K5K6K7" , "SAD  -  SOUTH  ATLANTIC  Division" .none) ; 

dr . maked iv( foatable, gfatable) ;  dr. retain; 
dr  new  foaorg( "L0L1L2L3L4" , "SPD  -  SOUTH  PACIFIC  Division" .none) ; 

dr . makediv( foatable , gfatable) ;  dr. retain; 
dr  new  foaorg ( "M0M1M2M3M4M5" , "SWD  -  SOUTH  WEST  Division" .none) ; 
dr .makediv( foatable, gfatable) ;  dr. retain; 
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sumf yl .close ; 

out image; out text ("SUMMARY  FILE  STATISTICS out image ; out image ; 

") ; out int ( records , 10) ; out image; 

") ;outint (xposn,10) ; out image; 

*) ; out int (xocg, 10) ; out image; 

)  ;  out  int  ( xcmd  ,10);  out  image  ; 

■) ;outint(xfund, 10) ; out image ; 

* ) ; out int ( xpay , 10 ) ; out image ; 

") ;outint(xsched, 10) ; out image; 

") ; out int (xfnc, 10) ; out image : 

"); 

outint(  (records  -  (xposn+xorg+xcmd+xfund+xpay+xsched+xfnc)  ),10); 

out image ; 

end; 

end  — program--; 


outtext ( " 

records  read 

out text ( " 

vacancies 

outtext(" 

org-rel  rejs 

outtext ( " 

non  CE 

outtext ( " 

funding  rejs 

outtext ( " 

pay  rejs 

outtext ( " 

sched-re js 

outtext ( " 

Assign-fails 

outtext ( " 

Population  Asgnd 
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ANNEX  C 


LIST  OF  ABBREVIATIONS  AND  ACRONYMS 

AR  .  Army  Regulation 

CA  .  Commercial  Activities 

COEMIS  PA .  Corps  of  Engineers  Management  Information 

System  for  Personnel  Administration 
CW .  civil  works 

DCW .  Directorate  of  Civil  Works 

DRM .  Directorate  of  Resource  Management 

EASA .  Engineer  Automation  Support  Activity 

ER  .  Engineer  Regulation 

ESC .  Engineer  Studies  Center 

FLO  .  First  Level  Organization 

FOA .  Field  Operating  Agency 

FORCON  .  Force  Configuration 

FTE  .  full  time  equivalent 

GFA .  General  Functional  Area 

OMB .  Office  of  Management  and  Budget 

OOP .  object  oriented  programming 

ORG-r  JDE .  Organization  Code 

USACE .  U.S.  Army  Corps  of  Engineers 
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REASONS  FOR  PERFORMING  Till:  STUDY:  The  Commercial  Activities  (CA)  program,  as 
promulgated  in  the  OITice  Of  Management  and  Budget's  Circular.  A -76  Performance  of  Commercial 
Activities,  basically  requires  that  serv  ices  that  can  be  more  economically  performed  by  the  private 
sector  should  not  be  done  by  government  employees.  The  U.S.  Army  Corps  of  Engineers  (Corps) 
has  been  hailed  as  one  of  the  government’s  most  successful  examples  of  compliance  and  cost 
reduction  resulting  from  CA  Studies.  In  the  face  of  new  OMB  guidance,  the  Corps  in  1990  found 
that  its  CA  inventories  had  inexplicably  changed,  and  that  this  might  jeopardize  future  success. 

HIE  STUDY  SPONSOR:  U.S.  Army  Corps  of  Engineers,  Directorate  of  Resource  Management. 

PERFORMING  ORGANIZATION  AM)  PRINCIPAL  AUTHOR:  The  U.S.  Army  Engineer  Studies 
Center  performed  the  study.  The  author  of  the  report  was  Mr.  Robert  H.  Halayko. 

1)1 1C  ACCESSION  NUMBER:  (not  available) 

COMMENTS  AND  SUGGESTIONS  MAY  BE  SENT  TO: 


Direclor/Technical  Director 
U.S.  Army  Engineer  Studies  Center 
Casey  Building  #2594 
Ft  Belvoir.  VA  22060-5583. 
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